facet

Question

我想绘制一些错误栏。

代码：

df<-data.frame(x=rep(c("Data"),each=6),
           Legend=c("A","B","C","D","E","F"),
           low=c(2832,3192,2307,3457,2171,6222),
           high=c(3561,3585,2561,3457,2171,6222),
           sdlow=c(465,474,330,1244,950,4218),
           sdhigh=c(550,519,347,1244,950,4218))

df2<-melt(df,id=c("x","Legend","sdlow","sdhigh"))


p<-ggplot(data=df2, aes(x=x,y=value,fill = Legend)) +
geom_bar(stat="identity",position="dodge")+
facet_wrap(~variable)+
geom_errorbar(aes(ymin=value-sdlow, ymax=value+sdlow), width=.2,position=position_dodge(.9))
#geom_errorbar(aes(ymin=high-sdhigh, ymax=high+sdhigh), width=.2,position=position_dodge(.9))

p

问题：high的错误栏与low的错误栏相同。但是三个误差条必须不同。 我认为我的推理错误在df2。

该图显示了两个窗口low和high。 A，B，c的误差条必须不同。问题是，在high窗口中，low，A，B的{​​{1}}窗口中的错误栏相同。由于价值观相似，因此很难识别。