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))

..我得到这样的情节：

我尝试了许多不同的事情。 任何帮助表示赞赏！