R语言ggplot：geom_errorbar与geom_ribbon分色绘制问题求助

原始数据集 #

Color    y       y_min    y_max     x
After   -4.107   -4.986   -3.229    2018
After   -3.395   -4.015   -2.775    2017
After   -2.955   -3.292   -2.618    2016
After   -2.082   -2.406   -1.758    2015
After   -0.993   -1.328   -0.659    2014
Before   0        0        0        2013
Before   0.211   -0.148    0.569    2012
Before   0.125   -0.276    0.526    2011
Before   0.056   -0.565    0.677    2010
Before   0.642    0.0100   1.273    2009
Before   0.429   -0.241    1.099    2008

需求 #

• 为每个x值绘制误差棒
• 叠加geom_ribbon图层展示误差范围
• 按分组配色：2013年及之前的Before组（含2013）设为蓝色，2013年之后的After组设为红色，误差棒线条色与ribbon填充色需对应区分

原始代码问题 #

你的代码存在3个关键问题：

1. ggplot()函数的括号未闭合，导致语法错误
2. geom_ribbon中重复声明了x和y映射，且未设置填充色的手动映射（仅设置了线条色）
3. 数据x轴年份是倒序排列，geom_line会从右向左绘制，不符合常规阅读习惯

修正后的代码 #

library(ggplot2)
library(dplyr)

# 先对数据按x升序排序，让线条从左到右绘制
df_sorted <- df %>% arrange(x)

df_sorted %>%
  ggplot(aes(x = x, y = y, color = Color, fill = Color)) +
  geom_line() +
  geom_point(size = 2) +
  # 误差棒继承全局的color映射，只需指定ymin/ymax
  geom_errorbar(aes(ymin = y_min, ymax = y_max), width = 0.2) +
  # Ribbon图层无需重复声明x/y，继承全局映射，仅指定ymin/ymax
  geom_ribbon(aes(ymin = y_min, ymax = y_max), alpha = 0.2) +
  # 同时设置线条色与填充色的手动映射
  scale_color_manual(values = c(Before = "blue", After = "red")) +
  scale_fill_manual(values = c(Before = "blue", After = "red")) +
  # 可选：如果希望年份作为离散轴显示，添加以下一行
  scale_x_continuous(breaks = unique(df_sorted$x))

代码说明 #

• 先对数据按x（年份）升序排序，确保折线从左到右（2008→2018）绘制
• 将color和fill映射放在全局aes中，避免重复声明，让所有图层自动继承分组配色
• geom_errorbar添加width参数让误差棒更美观
• scale_fill_manual与scale_color_manual对应，确保ribbon填充色和线条/误差棒颜色一致
• 可选的scale_x_continuous(breaks = ...)可以让每个年份都显示在x轴上，避免连续轴的间隔问题

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