表格列中R的分组条形图

Question

我想生成一个如下图：

你能给我一个暗示如何达到顶峰吗？我开始说：

var foo = 'blah';
var o = {};
o[foo] = 'bar';

Answer 1

这有点像你要求的......除了你没有提供的所有缺失值。

 png('rplot2.png'); par(mar=c(5,4,4,5)  )
data <- cbind('T1 - Grundzeit'=T1,'T2 - Hilfszeit'=T2)
   rownames(data) <- levels(A)
   barplot(t(data),beside=F, legend.text=colnames(data),
   col=c("grey50","grey80"),ylab="Arbeitszeitbedarf [h/ha]", 
   args.legend=list(inset=4,x=7,y=70))
dev.off()