2015-06-03 108 views
-1

我要生成一個情節看起來像這樣:中的R分組堆積條形圖表列

enter image description here

你能不能給我一個提示如何頂部做到這一點?我開始與:

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

據推測 「×3」 的用意是 「T3」?你能解釋一下你的數據安排嗎?記住這個情節只有兩組,但你有三組。 –

+0

是的,謝謝你,我確實改變了這一點。 – user4773362

回答

0

這有點像你所要求的......除了你沒有提供的所有缺失值。

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

enter image description here

+0

謝謝,我部分解決了我的問題: abline()添加行,並使用space = rep()在條之間添加空格。 我解決了ylim與數據矩陣的ylim = max(rowSums())的問題。 我對GIMP做了進一步的修改 – user4773362