如何在ggplot时间序列图中添加季节色块叠加层？

问题描述 #

我绘制了如下图表：

使用的R语言代码如下：

ggplot(data= mean_values, aes(x = Date, y = mean_B)) + 
  geom_line() + 
  labs(
    x="Date", 
    y = "Mean", 
    title = "Time Series Analysis of respondents visiting a park in the last 12 months"
  ) + 
  geom_smooth(method= "lm", se = FALSE) 

希望在图中添加彩色区块标记春（Spring）、夏（Summer）、秋（Autumn）、冬（Winter）四个季节，目标效果如下：

已尝试创建季节数据框：

seasons <- data.frame(
  Season = c("Spring", "Summer", "Autumn", "Winter"),
  Start_Date = as.Date(c("2020-03-01", "2020-06-01", "2020-09-01", 
                         "2020-12-01")),
  End_Date = as.Date(c("2020-05-31", "2020-08-31", "2020-11-30", 
                       "2021-02-28"))
)

并尝试添加填充层，但未得到预期效果：

ggplot(data = mean_values, aes(x = Date, y = mean_B)) +
  geom_line() +
  labs(
    x = "Date", 
    y = "Mean", 
    title = 
 "Time Series Analysis of respondents visiting a park in the last 12 months") +
  geom_smooth(method = "lm", se = FALSE) +
  geom_rect(
    aes(xmin = Start_Date, xmax = End_Date, ymin = -Inf, ymax = Inf, 
        fill = Season),
    alpha = 0.3, color = NA
  ) +
  scale_fill_manual(
    values = c(
      "Spring" = "green",
      "Summer" = "yellow", 
      "Autumn" = "orange", 
      "Winter" = "blue")
  ) +
  theme_bw()

解决方案 #

你的代码核心问题是图层顺序错误和geom_rect未指定独立数据源，修正后的代码如下：

# 定义季节数据框
seasons <- data.frame(
  Season = c("Spring", "Summer", "Autumn", "Winter"),
  Start_Date = as.Date(c("2020-03-01", "2020-06-01", "2020-09-01", 
                         "2020-12-01")),
  End_Date = as.Date(c("2020-05-31", "2020-08-31", "2020-11-30", 
                       "2021-02-28"))
)

# 绘制图表，按背景层-线条层-趋势线层的顺序排列
ggplot() +
  # 季节背景区块：指定独立数据源seasons
  geom_rect(
    data = seasons,
    aes(xmin = Start_Date, xmax = End_Date, ymin = -Inf, ymax = Inf, fill = Season),
    alpha = 0.3, color = NA
  ) +
  # 访客数据线条：指定数据源mean_values
  geom_line(data = mean_values, aes(x = Date, y = mean_B)) +
  # 线性趋势线：指定数据源mean_values
  geom_smooth(data = mean_values, aes(x = Date, y = mean_B), method = "lm", se = FALSE) +
  # 图表标签设置
  labs(
    x = "Date", 
    y = "Mean", 
    title = "Time Series Analysis of respondents visiting a park in the last 12 months"
  ) +
  # 自定义季节填充色
  scale_fill_manual(
    values = c(
      "Spring" = "green",
      "Summer" = "yellow", 
      "Autumn" = "orange", 
      "Winter" = "blue"
    )
  ) +
  theme_bw()

关键修正点 #

• 图层顺序调整：将geom_rect放在最底层，让彩色区块作为背景，线条和趋势线叠加在上方，避免被遮挡。
• 明确数据源：给每个图层指定对应的数据源，防止主图的x/y映射被geom_rect错误继承，导致数据匹配混乱。
• 隔离图层映射：确保每个图层的aes只对应自身数据源的字段，避免跨图层的映射冲突。

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