如何在geom_line折线图中添加geom_rect实现NBER衰退期阴影标注

你的代码核心问题是geom_rect要求传入矩形的上下左右四个边界参数，仅传入x参数无法生成正确阴影，且直接用$调用数据框变量的写法会破坏ggplot的映射逻辑，容易出现匹配错误。以下是两种可直接复用的实现方案：

方案1：基于现有数据快速实现（无需额外数据处理） #

用geom_tile替代geom_rect，适配你每行数据都携带Recession标识的结构，自动覆盖全y轴范围：

library(ggplot2)

ERVALUEplot <- ggplot(data = Alldata, aes(x = Date)) +
  # 先绘制阴影图层，放在折线下方避免遮挡
  geom_tile(aes(alpha = Recession, y = mean(ERVALUE)), 
            fill = "grey", height = Inf) +
  # 绘制收益率时间序列线
  geom_line(aes(y = ERVALUE), color = 'red') +
  # 设置透明度规则：扩张期（0）完全透明，衰退期（1）透明度0.3
  scale_alpha_continuous(range = c(0, 0.3), breaks = c(0, 1),
                         labels = c("扩张期", "衰退期")) +
  # 不需要显示衰退图例的话，删掉下面的labs行，加一行guides(alpha = "none")
  labs(alpha = "经济周期") +
  theme_bw()

方案2：标准geom_rect实现（适合大数据量场景） #

先提取连续的衰退区间边界，再绘制阴影，渲染效率更高：

library(ggplot2)
library(dplyr)

# 第一步：提取连续衰退周期的起止日期
recession_periods <- Alldata %>%
  arrange(Date) %>%
  mutate(period_group = cumsum(Recession != lag(Recession, default = first(Recession)))) %>%
  filter(Recession == 1) %>%
  group_by(period_group) %>%
  summarise(xmin = min(Date), xmax = max(Date)) %>%
  ungroup()

# 第二步：绘图
ERVALUEplot <- ggplot() +
  geom_rect(data = recession_periods, aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf),
            fill = "grey", alpha = 0.3) +
  geom_line(data = Alldata, aes(x = Date, y = ERVALUE), color = 'red') +
  theme_bw()

注意事项 #

• 必须先画阴影图层再画折线，避免阴影覆盖折线
• 不要在aes()内用$调用数据框变量，ggplot会自动从指定的data参数中提取对应变量，避免匹配错误
• 可根据可视化需求调整alpha参数，0.2-0.4区间的透明度适配浅色背景效果最优

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