表列中R中的分组堆叠条形图

我想生成一个如下所示的绘图：

你能告诉我top是如何做到这一点的吗？我开始：

  T1 <- c(23.2,34.5,76.3,65.8,12.6)
  T2 <- c(15.6,12.4,21.8,20,5.2)
  T3 <- c(15.6,12.4,21.8,20,5.2)
  A <- gl(5,1,5,labels=c("Mähen","Wenden","Schwaden","Pressen","Abtransport"))

  data <- cbind(T1,T2,T3)
  rownames(data) <- levels(A)
  barplot(x1,names.arg=levels(A))
  barplot(x3,names.arg=levels(A))
  #barplot(t(data),beside=F, ylim=c(0,100),legend.text=colnames(data),
  barplot(t(data),beside=F, legend.text=colnames(data),
  col=c("grey50","grey80"),ylab="Arbeitszeitbedarf [h/ha]")

---

T1这有点像你要求的。。。除了您未提供的所有缺失值

 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()

png（'rplot2.png'）；par（mar=c（5,4,4,5））
数据“x3”可能是为了“T3”？你能解释一下你心目中的数据排列吗？图中只显示了两组，但有三组。是的，谢谢你，我确实改变了这一点。谢谢你，我通过使用：abline（）添加线和space=rep（）在条之间添加空间部分地解决了我的问题。我用datamatrix的ylim=max（rowSums（））解决了这个问题。我对GIMP做了进一步的编辑