ggplot pozycji errorbar problemy wieloczynnikowe

Question

Próbowałem do wykreślenia standardowe słupki błędów na wielopoziomowym histogram danych, który jest bardzo podobny do następującego:

mth<-rep(c("June","July","August"),length.out=15) 
yr<-rep(c("1999","2000","2005","2009","2010"),each=3) 
X<-rnorm(15,mean=200,sd=100) 
lng<-rep(c(30,31,31),length.out=15) 
vrnc<-rnorm(15,mean=740,sd=300) 
df<-data.frame(mth,yr,vrnc,lng,X) 
dfi<-dim(df)[1] 
for(i in 1:dfi){ 
df$X.se[i]<-sqrt(df$vrnc[i]/df$lng[i]) 
} 

Próbowałem umieszczenie słupków błędów uzywajac Metoda stat_summary opisana w this thread. Mój kod z stat_summary wygląda następująco:

ggplot(df,aes(x=yr,y=X,fill=mth))+ 
    stat_summary(fun.y=mean, geom="bar",position=position_dodge(1)) + 
    stat_summary(fun.ymin=min,fun.ymax=max,geom="errorbar", 
     color="grey40",position=position_dodge(1), width=.2) + 
    geom_errorbar(data=df,aes(ymin=X-X.se,ymax=X+X.se,position="dodge",width=.2))+ 
    scale_fill_discrete("mth") 

Próbowałem zostały również przy użyciu tego kodu:

ggplot(df,aes(x=yr,y=X,fill=mth))+ 
    geom_bar(stat="identity",position="dodge")+ 
    geom_errorbar(data=df,aes(ymin=X-X.se,ymax=X+X.se,position="dodge",width=.2)) 

ale wynik zawsze wychodzi z prętów o błędach wszystko w środku każdego roku.

Chciałbym wiedzieć, co robię źle. każdy pasek błędów powinien znajdować się na szczycie miesiąca/roku, do którego odnoszą się dane.

Answer 1

musiałem to zrobić niedawno. coś takiego:

ggplot(df,aes(x=yr,y=X,fill=mth))+ 
    geom_bar(stat="identity", position = position_dodge()) + 
    geom_errorbar(aes(ymin=X-X.se, ymax=X+X.se), position = position_dodge(.9), width=.2)