来自表格列的 R 中的分组堆积条形图 [关闭]答案

【问题标题】：Grouped Stacked Bar Plot in R from Table Columns [closed]来自表格列的 R 中的分组堆积条形图 [关闭]
【发布时间】：2015-06-03 20:32:36
【问题描述】：

我想生成如下图：

你能给我一个提示如何实现这一点吗？我开始：

  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]")

【问题讨论】：

大概“x3”应该是“T3”？你能解释一下你脑海中的数据排列方式吗？情节只建议两组，但你有三个。
是的，谢谢，我确实改了。

标签： r bar-chart

【解决方案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()

【讨论】：

谢谢，我通过使用 abline () 添加行和 space=rep() 在条之间添加空格部分解决了我的问题。我用数据矩阵的 ylim=max(rowSums()) 解决了 ylim 的问题。我对 GIMP 所做的进一步编辑