r - Geom_errorbar 位置不起作用

Question

我的问题是 ggplot 的 geom_bar 和 geom_errorbar。我将它们的位置都设置为 position_dodge() 并且我希望 geom_errorbar 的位置从 geom_bar 继承，但没有任何反应。我的数据框如下所示：

    year <- c(rep(c('1998', '2008', '2018'),2)) 
JZ <- c(3.04, 3.4, 3.08, 2.81, 2.93, 2.83)
 SD <- c(0.79, 0.98, 1.05, 1.1, 1.47, 1.57) 
type <- c(rep('JZa', 3), rep('JZm', 3))
 mydata <- data.frame(year, JZ, SD)

我的代码如下所示：

 ggplot(mydata, aes(x=year, y=JZ, ymin=JZ-SD, ymax=JZ+SD))+
 geom_bar(stat = "identity", aes(fill = type), position = position_dodge(), width=6)+
 scale_fill_grey() + theme_bw() + 
 labs(title="", x='', y="Mean number of nestlings \u00B1 SD")  +
 geom_errorbar(position=position_dodge(), width=1.5) + 
  scale_x_continuous(breaks=seq(1998, 2018, 10))

..我得到这样的情节：

我尝试了很多不同的东西。任何帮助表示赞赏！

标签： rggplot2positionerrorbar