使用geom_rect为时间序列图添加event_type标注的问题

问题描述 #

我在使用geom_rect函数的aes(xmin, xmax, fill)参数时遇到了问题，请问如何通过geom_rect添加event_type（厄尔尼诺、拉尼娜、中性年）的背景色块？以下是我的示例代码：

dummy <- data.frame(Date = seq(as.Date("1981-01-01"), as.Date("2010-12-01"), by = "month"),
                    Percentage = runif(360, min = 0, max = 100))
dummy$Year <- format(dummy$Date,"%Y")
# 定义厄尔尼诺、拉尼娜和中性年份
el_nino_years <- c(1982, 1987, 1991, 1994, 1997, 2002, 2004, 2009)
la_nina_years <- c(1984, 1988, 1995, 1999, 2000, 2007, 2010)
neutral_years <- setdiff(1981:2010, c(el_nino_years, la_nina_years))
# 根据年份类型生成event_type列
dummy <- dummy %>%
  mutate(event_type = case_when(
    Year %in% el_nino_years ~ "El Niño",
    Year %in% la_nina_years ~ "La Niña",
    Year %in% neutral_years ~ "Neutral",
    TRUE ~ NA_character_  # 处理指定范围外的年份
  ))
dummy_plot <-  ggplot(data = dummy,
      aes(x= Date, y= Percentage))+
  geom_line()+
  labs(
    x = " ",
    y = "Area (%)"
  )+
  theme_minimal()

解决方法 #

要给图表添加对应event_type的背景色块，需先整理出每个年份的日期范围数据，再用geom_rect绘制：

1. 生成事件日期范围数据集 #

从原数据中提取每个年份对应的event_type，并生成该年份的起始和结束日期，避免同一年份重复绘制色块：

event_dates <- dummy %>%
  distinct(Year, event_type) %>%
  mutate(
    Year = as.integer(Year),
    xmin = as.Date(paste0(Year, "-01-01")),
    xmax = as.Date(paste0(Year, "-12-31"))
  )

2. 添加geom_rect图层到图表中 #

将event_dates作为geom_rect的数据源，设置xmin、xmax、fill的映射关系，同时调整色块透明度避免遮挡折线：

dummy_plot <- ggplot(data = dummy, aes(x = Date, y = Percentage)) +
  # 先绘制背景色块，确保在折线下方
  geom_rect(data = event_dates,
            aes(xmin = xmin, xmax = xmax, fill = event_type),
            ymin = -Inf, ymax = Inf, alpha = 0.2, inherit.aes = FALSE) +
  geom_line() +
  labs(
    x = "",
    y = "Area (%)",
    fill = "Event Type"
  ) +
  theme_minimal()

关键参数说明 #

• ymin = -Inf/ymax = Inf：让色块覆盖整个y轴高度
• alpha = 0.2：降低色块透明度，保证折线清晰可见
• inherit.aes = FALSE：禁用继承主图的aes映射，避免日期等参数冲突

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