ggplot2折线图背景使用geom_rect展示分类变量变化的方法

你可以先为每个energy等级计算对应的时间区间范围，再把geom_rect图层放在折线图层之前渲染，即可实现背景分区展示energy等级的效果，具体实现如下：

步骤1：预处理energy等级的区间数据 #

首先统计每个energy等级对应的时间起止范围，用正负无穷作为y轴边界可以自动铺满整个绘图区域，不需要手动计算output的极值：

library(tidyverse)

# 原有示例数据
tbl <- tibble(time = 1:100,
              output = - time^2 + 5*time,
              duration = c(rep("start", 30), rep("mid", 40), rep("end", 30)),
              energy = c(rep("high", 40), rep("medium", 30), rep("low", 30)))

# 整理每个energy等级对应的区间
energy_rect <- tbl %>%
  group_by(energy) %>%
  summarise(
    xmin = min(time),
    xmax = max(time),
    ymin = -Inf,
    ymax = Inf
  )

步骤2：叠加背景矩形图层绘图 #

注意图层顺序要先放geom_rect再放geom_line，避免背景遮挡折线：

ggplot() + 
  # 底层渲染energy背景矩形
  geom_rect(data = energy_rect,
            aes(xmin = xmin, xmax = xmax,
                ymin = ymin, ymax = ymax,
                fill = energy),
            alpha = 0.2, # 调整透明度避免遮挡折线
            inherit.aes = FALSE) + # 不继承全局映射，避免参数冲突
  # 上层渲染原有折线
  geom_line(data = tbl,
            aes(x = time,
                y = output,
                color = duration)) + 
  # 可自定义energy等级的填充色系
  scale_fill_brewer(palette = "Set2") +
  theme_bw()

可选优化 #

如果发现相邻背景矩形之间存在细缝隙，可以在计算xmax时加0.5、xmin减0.5，适配整数时间轴的显示效果；也可以通过scale_fill_manual(values = c("high" = "red", "medium" = "yellow", "low" = "green"))自定义填充色，用labs(fill = "能量等级")修改fill图例的标题。

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