使用ggplot2绘制含分类变量与背景着色的折线图求助

嘿，我懂你现在整合步骤时的崩溃感，别慌，咱们一步步拆解这个ggplot2的绘图任务，把每个环节理顺：

第一步：先搞定Y轴的固定顺序 #

你要求Y轴严格保持特定顺序，所以首先得重新指定Y_values的因子水平——原始数据里它是因子，但顺序可能不是你要的。咱们直接把目标顶部和底部值对应好，同时保留所有原有水平（确保不丢数据）：

# 先提取所有Y_values的水平，然后调整顺序：把目标顶部值放最前，底部值放最后
y_levels <- levels(data_example2$Y_values)
# 把你要的顶部值移到第一个位置
y_levels <- c("I1 if I2CP3P4M1M2", y_levels[y_levels != "I1 if I2CP3P4M1M2"])
# 把你要的底部值移到最后一个位置
y_levels <- c(y_levels[y_levels != "I1I2CP3 if P4M1M2"], "I1I2CP3 if P4M1M2")
# 更新Y_values的因子水平
data_example2$Y_values <- factor(data_example2$Y_values, levels = y_levels)

第二步：准备背景分组的矩形数据 #

要用geom_rect给每个Groups着色，得先算出每个组对应的X轴范围，这样每个矩形才能准确覆盖对应区域：

library(dplyr)

# 计算每个Group的X_value最小和最大值
rect_data <- data_example2 %>%
  group_by(Groups) %>%
  summarize(xmin = min(X_value),
            xmax = max(X_value),
            .groups = "drop")

第三步：绘制最终图表 #

现在把背景矩形、折线图整合起来，注意图层顺序（先画背景，再画折线），还要隐藏矩形轮廓，按要求设置分组：

library(ggplot2)

ggplot() +
  # 添加背景矩形：隐藏轮廓，用计算好的X范围，Y轴覆盖全部
  geom_rect(data = rect_data,
            aes(xmin = xmin, xmax = xmax,
                ymin = -Inf, ymax = Inf,
                fill = Groups),
            color = NA) +
  # 添加两条折线：按Units分组，X是X_value，Y是Y_values
  geom_line(data = data_example2,
            aes(x = X_value, y = Y_values,
                group = Units, color = Units),
            linewidth = 1) +
  # 设置图例名称（可选，按需调整）
  scale_fill_discrete(name = "Groups") +
  scale_color_discrete(name = "Units") +
  # 调整主题，让图表更整洁
  theme_minimal() +
  theme(
    panel.grid = element_blank(),
    axis.text.y = element_text(size = 10)
  )

关键注意点 #

• 图层顺序很重要：先画背景矩形，再画折线，不然折线会被背景挡住
• Y轴的顺序是通过重新指定因子水平实现的，这样ggplot会严格按照你设置的顺序排列
• geom_rect里用ymin = -Inf和ymax = Inf可以让矩形覆盖整个Y轴高度，不用手动计算Y的范围

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