私は過去 3 日間だけ R を使用しており、自分のニーズに合わせて調整した調査を通じて、以下のコードのほとんどを入手しました。それは完全にうまく機能します。標準エラーのエラー バーにそれぞれ ( B、A*、A、A) というラベルを付けたり、注釈を付けたりできるようにしたいと考えています。以下は作業コードです。
cat<-rep(c("E","F","G","H"),each=12)
var2=rnorm(48,10)*(rep(rpois(4,.2),each=12)/8+1)
ds<-data.frame(cat,var2)
lbls<- c("B","A*","A","A")
stderr <- function(x){sqrt(var(x,na.rm=TRUE)/length(na.omit(x)))}
lowsd <- function(x){return(mean(x)-stderr(x))}
highsd <- function(x){return(mean(x)+stderr(x))}
cols <- c("red", "yellow", "green", "blue")
ggplot(ds,aes(cat,var2, fill=cat))+
ggtitle("Asem beba Dabi")+
xlab("Soil Sample Sites\n\n Fig 1 shows...") + ylab("Mass or Water(mg)") +
# first layer is barplot with means
stat_summary(fun.y=mean, geom="bar", position="dodge", colour="white")+
# second layer overlays
stat_summary(fun.y=mean, fun.ymin=lowsd, fun.ymax=highsd, geom="errorbar", position="dodge",color = 'blue', size=.5)
これは私が苦労しているビットです
geom_text(aes(label=lbls), position=position_dodge(width=0.9), vjust=-0.25)
これは学校の課題であり、どんな助けも高く評価されます