使用geom_recessions添加衰退阴影报错：找不到该函数的求助

报错原因 #

geom_recessions()并非ggplot2核心包自带函数，R找不到该函数是因为你未安装并加载包含它的第三方包。

方案1：安装对应包使用原函数 #

geom_recessions()属于recessions包，按以下步骤操作：

1. 安装包：

install.packages("recessions")

2. 加载包后重新运行代码：

library(recessions)

a<-rnorm(300)
Date <- seq(as.Date("1910-1-1"), as.Date("1934-12-1"), by="month")
data <- cbind(as.data.frame(Date), a)

ggplot(data = data, aes(x = Date, y = a, group=1)) +
  geom_line(color = "#00AFBB", size = 2)+
  geom_recessions()

注意：该包的衰退数据仅覆盖特定时间段，若你的图表时间范围不在数据内，可能看不到阴影效果。

方案2：手动添加衰退阴影（完全自定义） #

无需依赖第三方包，用geom_rect()手动定义衰退时间段：

1. 创建包含衰退起止日期的数据框（示例用美国1910-1934年的衰退期，可按需修改）：

recession_periods <- data.frame(
  start = as.Date(c("1910-01-01", "1913-01-01", "1920-01-01", "1929-08-01")),
  end = as.Date(c("1912-01-01", "1914-12-01", "1921-07-01", "1933-03-01"))
)

2. 绘图时先加阴影层再画线条（确保阴影在底层）：

ggplot(data = data, aes(x = Date, y = a, group=1)) +
  geom_rect(
    data = recession_periods,
    aes(xmin = start, xmax = end, ymin = -Inf, ymax = Inf),
    fill = "gray", alpha = 0.3,
    inherit.aes = FALSE  # 避免继承主数据的y轴映射
  ) +
  geom_line(color = "#00AFBB", size = 2)

方案3：用tidyquant包的便捷函数 #

tidyquant包内置美国历史衰退数据，提供geom_rect_recessions()快速添加阴影：

1. 安装并加载包：

install.packages("tidyquant")
library(tidyquant)

2. 修改你的代码：

ggplot(data = data, aes(x = Date, y = a, group=1)) +
  geom_line(color = "#00AFBB", size = 2)+
  geom_rect_recessions(fill = "gray", alpha = 0.3)

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