如何在ggplot2中基于条件为绘图区域添加背景阴影

假设你的 tibble 包含时间列（如date）、下限值列（如lower）、上限值列（如upper），以及标记反转状态的inversion列（TRUE表示当前区间上限低于下限），以下是具体实现步骤：

1. 构造示例数据（可替换为你的实际数据） #

library(tibble)
library(ggplot2)
library(dplyr)
library(tidyr)

set.seed(123)
df <- tibble(
  date = seq.Date(as.Date("2023-01-01"), as.Date("2023-01-10"), by = "day"),
  lower = c(1, 3, 5, 2, 6, 4, 7, 3, 5, 2),
  upper = c(5, 6, 3, 7, 4, 8, 5, 8, 3, 6),
  inversion = lower > upper  # 自动标记反转区间，若已有该列可省略
)

2. 处理反转区间（针对连续反转的情况） #

如果inversion存在连续为TRUE的行，先将其合并为完整的区间，避免重复绘制多个小背景：

df_rect <- df %>%
  mutate(
    # 标记反转区间的起始点
    start_flag = inversion & (lag(inversion, default = FALSE) == FALSE),
    # 标记反转区间的结束点
    end_flag = inversion & (lead(inversion, default = FALSE) == FALSE)
  ) %>%
  filter(start_flag | end_flag) %>%
  mutate(
    group = ceiling(row_number() / 2),
    type = ifelse(row_number() %% 2 == 1, "start", "end")
  ) %>%
  pivot_wider(names_from = type, values_from = date) %>%
  # 处理最后一个反转区间到数据末尾的情况
  mutate(end = ifelse(is.na(end), last(df$date), end))

3. 绘制带灰色背景的折线图 #

ggplot(df, aes(x = date)) +
  # 添加反转区间的灰色背景
  geom_rect(
    data = df_rect,
    aes(xmin = start, xmax = end, ymin = -Inf, ymax = Inf),
    fill = "gray80", alpha = 0.3, inherit.aes = FALSE
  ) +
  # 绘制上下限折线
  geom_line(aes(y = lower, color = "下限")) +
  geom_line(aes(y = upper, color = "上限")) +
  # 自定义样式
  scale_color_manual(values = c("下限" = "blue", "上限" = "red")) +
  labs(x = "日期", y = "数值", color = "区间类型") +
  theme_minimal()

针对单个离散反转行的简化写法 #

如果你的inversion标记的是单个离散行（无连续反转），可以直接用每行的日期范围绘制背景：

ggplot(df, aes(x = date)) +
  geom_rect(
    data = filter(df, inversion),
    aes(xmin = date - 0.5, xmax = date + 0.5, ymin = -Inf, ymax = Inf),
    fill = "gray80", alpha = 0.3, inherit.aes = FALSE
  ) +
  geom_line(aes(y = lower, color = "下限")) +
  geom_line(aes(y = upper, color = "上限")) +
  scale_color_manual(values = c("下限" = "blue", "上限" = "red")) +
  labs(x = "日期", y = "数值", color = "区间类型") +
  theme_minimal()

关键注意点 #

• geom_rect是绘制背景的核心，ymin=-Inf和ymax=Inf确保背景覆盖整个y轴范围
• inherit.aes = FALSE避免继承主图层的 aes 设置，防止数据匹配冲突
• 连续反转区间的处理逻辑是通过标记起止点，将连续的TRUE行合并为单个矩形区间

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