R Создание barplot

Question

Im пытается сделать barplot со следующими данными

 Dept 
Admit  A B C D E F 
Admitted 601 370 322 269 147 46 
Rejected 332 215 596 523 437 668 

и я попытался следующий код:

admission_department <- barplot(biasUCB_d, main="Admit by deparment", 
           xlab="biasUCB_d[['Dept']]", 
           col=c("darkblue","red"), 
           legend = rownames(biasUCB_d[['Dept']]), 
           beside=TRUE) 

Название кодирования, используемого для создания набора данных:

biasUCB_d <- margin.table(UCBAdmissions, c(1,3)) 

Что я делаю неправильно?

Answer 1

Предполагая, что Департамент является элементом списка это должно работать:

данных:

biasUCB_d <- list(Dept = read.table(header=T, text=' 
Admit  A B C D E F 
Admitted 601 370 322 269 147 46 
Rejected 332 215 596 523 437 668')) 

Решение:

dmission_department <- barplot(as.matrix(biasUCB_d$Dept[2:7]), main="Admit by deparment", 
           xlab="biasUCB_d[['Dept']]", 
           col=c("darkblue","red"), 
           legend = biasUCB_d$Dept$Admit, 
           beside=TRUE) 

Выход:

Answer 2

Попытка:

admission_department <- barplot(biasUCB_d, main="Admit by deparment", 
           xlab="Department", 
           col=c("darkblue","red"), 
           legend.text = rownames(biasUCB_d), 
           beside=TRUE)