下列代码来自于“R语言可是化手册中”中,不过发现问题:为何2个系列的柱子和对应上个值位置不对(好像反了). 请高手看看如何解决?
数据集处理:
library(ggplot2) library(gcookbook) library(plyr) ce<-arrange(cabbage_exp,Date,Cultivar)
ce<-ddply(ce,"Date",transform,label_y=cumsum(Weight))> ce Cultivar Date Weight sd n se label_y1 c39 d16 3.18 0.9566144 10 0.30250803 3.182 c52 d16 2.26 0.4452215 10 0.14079141 5.443 c39 d20 2.80 0.2788867 10 0.08819171 2.804 c52 d20 3.11 0.7908505 10 0.25008887 5.915 c39 d21 2.74 0.9834181 10 0.31098410 2.746 c52 d21 1.47 0.2110819 10 0.06674995 4.21
绘图代码:ggplot(ce,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(stat="identity")+geom_text(aes(y=label_y,label=Weight),vjust=1.5,colour="white")