ggplot2 geom_errorbar误差棒未对齐分组柱体的解决方法

• 测试数据集结构：

df<-data.frame(Mean=c(56.0,63.8,46.9,48.5,39.8, 44.4, 51.9, 57.2, 40.5, 40.6),
              sd=c(24.0, 21.8, 24.4, 24.0, 21.0, 19.8, 22.4, 21.5, 20.5, 15.6),
              Quality=as.factor(c("P","M","P","M",
                                  "P","M", "P","M",
                                  "P","M")), 
              Category=c("A","B","C","D","E"),
              Insert= c(0.0, 0.1, 0.3, 0.5, 1.0))

• 运行初始代码的绘图效果：
  
• 存在问题：误差棒未对齐到对应分组柱体，偏移到同分类下两个柱体的间隙位置。
• 初始问题代码：

p <- ggplot(df, aes(x=Category, y=Mean, fill=Quality)) +
  geom_bar(position=position_dodge(), stat="identity",
           colour='black') + 
  geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), width=.2)
print(p)

分组柱状图做位置避让时，所有绑定分组的几何元素必须使用参数完全一致的避让规则。初始代码仅给柱形图层配置了position_dodge()，误差棒图层未设置相同的避让参数，默认按x轴分类的中心位置绘制，因此出现错位。

给误差棒图层添加和柱形图层完全一致的position_dodge(width=0.9)配置即可（ggplot2中柱形默认宽度为0.9，对应dodge宽度也设为0.9即可完美对齐）。
修正后的完整代码：

p <- ggplot(df, aes(x=Category, y=Mean, fill=Quality)) +
  geom_bar(
    position = position_dodge(width = 0.9),
    stat = "identity",
    colour = 'black'
  ) +
  geom_errorbar(
    aes(ymin = Mean - sd, ymax = Mean + sd),
    width = .2,
    position = position_dodge(width = 0.9) # 和柱形保持一致的避让参数
  )
print(p)

• 如果后续调整了柱形宽度（比如给geom_bar()加width=0.7参数），需要同步把两个图层position_dodge()里的width值改成和柱宽一致，否则依旧会错位。
• 分组场景下的文本标签、散点标记等其他需要和柱体对齐的元素，都要遵循相同的避让参数规则。

内容的提问来源于stack exchange，提问作者R_beginner