来自 Table 列的 R 中的分组堆积条形图

Question

我想生成如下图：

你能告诉我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]")

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

来自 Table 列的 R 中的分组堆积条形图

Grouped Stacked Bar Plot in R from Table Columns

r

bar-chart