R语言ggplot2中geom_errorbar与geom_ribbon无法协同使用求解

• 调整图层顺序：先绘制丝带阴影，再绘制误差棒和散点，避免阴影覆盖上层元素
• 修正sd列的负值：标准差为非负数值，原数据中的负号为笔误，修正后误差棒上下限计算逻辑正确
• 改用annotate绘制全局水平丝带：不需要绑定原数据集的映射关系，直接指定x轴范围为离散分组的整体区间，避免受分组映射干扰

library(ggplot2)
group <- c("Group 1", "Group 1", "Group 2", "Group 2", 
           "Group 3", "Group 3", "Group 4", "Group 4")
subgroup <- c("High", "Low", "High", "Low", "High", "Low", "High", "Low")
value <- c(0.1,-0.1,0.4,0.5,0.25,0.6,-0.25,0.05)
# 修正sd为正值
sd <- c(0.1,0.1,0.05,0.05,0.05,0.05,0.01,0.01)
value_avg <- 0.33
sd_avg <- 0.07

df <- data.frame(group, subgroup, value, sd)

# 绘图
ggplot(df, aes(group, value)) +
  # 先画灰色丝带，x范围覆盖4个分组的全部宽度
  annotate("ribbon", x = c(0.5, 4.5), 
           ymin = value_avg - sd_avg, ymax = value_avg + sd_avg,
           fill = "grey70", alpha = 0.5) +
  # 再画误差棒和点
  geom_errorbar(
    aes(ymin = value - sd, ymax = value + sd, color = subgroup),
    position = position_dodge(0.3), width = 0.3
  ) +
  geom_point(aes(color = subgroup), position = position_dodge(0.3))

如果一定要用geom_ribbon实现，需要将x映射为数值型的分组索引，同时指定group=1，调整后代码如下：

ggplot(df, aes(as.numeric(group), value)) +
  geom_ribbon(aes(ymin = value_avg - sd_avg, ymax = value_avg + sd_avg, group = 1),
              fill = "grey70", alpha = 0.5) +
  geom_errorbar(
    aes(ymin = value - sd, ymax = value + sd, color = subgroup),
    position = position_dodge(0.3), width = 0.3
  ) +
  geom_point(aes(color = subgroup), position = position_dodge(0.3)) +
  # 还原x轴标签为分组名称
  scale_x_continuous(breaks = 1:4, labels = unique(df$group), name = "group")

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