ggplot2绘制带分区域填充的折线图报错解决及需求实现

报错原因 #

geom_ribbon()的报错"Aesthetics can not vary along a ribbon"是因为该图层用于绘制Y轴方向的带状区域，要求X为连续变量且填充美学不能随单个X点变化。而你需要的是X轴方向的区域填充，应该用geom_rect()替代。

完整代码实现 #

1. 加载依赖包与数据整理 #

library(tidyverse)

# 你的原始数据集
cc <- structure(list(
  Cycle = "Average",
  `Die 1` = 100, `Pro 1` = 101, `Est 1` = 97, `Met 1` = 99,
  `Die 2` = 100, `Pro 2` = 101.788432267884, `Est 2` = 97.2, `Met 2` = 99.6194824961948,
  `Die 3` = 100, `Pro 3` = 102, `Est 3` = 97.5, `Met 3` = 99
), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -1L))

# 转长格式并标记X位置与区域分组
cc_long <- cc %>%
  select(-Cycle) %>%
  pivot_longer(everything(), names_to = "x_var", values_to = "y_val") %>%
  mutate(x_pos = row_number(),
         group = case_when(
           x_pos <= 4 ~ "前4列",
           x_pos <= 8 ~ "中间4列",
           TRUE ~ "后4列"
         ))

# 提取指标类型，计算误差棒上下限
error_data <- cc_long %>%
  mutate(metric = str_extract(x_var, "^[A-Za-z]+")) %>%
  group_by(metric) %>%
  mutate(sd_y = sd(y_val),
         y_min = y_val - sd_y,
         y_max = y_val + sd_y)

# 定义X轴填充区域参数
fill_regions <- tibble(
  xmin = c(0.5, 4.5, 8.5),
  xmax = c(4.5, 8.5, 12.5),
  group = c("前4列", "中间4列", "后4列"),
  fill_color = c("#cce7ff", "#ffe6cc", "#e6ccff")
)

2. 绘制可视化图形 #

ggplot() +
  # 绘制X轴区域填充
  geom_rect(data = fill_regions,
            aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf, fill = group),
            alpha = 0.3) +
  # 绘制折线
  geom_line(data = error_data, aes(x = x_pos, y = y_val, group = 1), color = "#2c3e50") +
  # 绘制数据点
  geom_point(data = error_data, aes(x = x_pos, y = y_val), size = 3, color = "#2980b9") +
  # 绘制误差棒
  geom_errorbar(data = error_data, aes(x = x_pos, ymin = y_min, ymax = y_max), width = 0.2) +
  # 设置X轴标签为原始列名
  scale_x_continuous(breaks = 1:12, labels = cc_long$x_var) +
  # 自定义填充颜色
  scale_fill_manual(values = fill_regions$fill_color) +
  # 主题与标签设置
  theme_minimal() +
  labs(x = "变量名称", y = "数值", fill = "区域分组") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

关键说明 #

• 用geom_rect()替代geom_ribbon实现X轴区域填充，通过离散X的数值位置定义区域范围。
• 误差棒基于同指标（Die/Pro/Est/Met）的三个重复值的标准差计算，若需要其他误差逻辑可修改sd_y的计算方式。
• X轴标签保留原始列名，并通过旋转避免重叠。

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