如何在ggplot2图表中添加月度垂直背景参考线？

要给你的气温时间序列图添加浅灰色垂直分隔线区分月份，这里提供两种实用方法：

方法1：用geom_vline()手动生成分隔线位置 #

先从日期列中提取每个月的第一天，再基于这些位置绘制垂直线：

# 假设数据框为df，日期列名为date
library(ggplot2)
library(highcharter)

# 生成每个月第一天的日期向量
month_starts <- seq.Date(from = min(df$date), to = max(df$date), by = "month")

# 绘制图表
ggplot(df, aes(x = date)) +
  # 先添加你的气温及分位数图层（示例）
  geom_line(aes(y = tmin, color = "最低温")) +
  geom_line(aes(y = tmax, color = "最高温")) +
  geom_ribbon(aes(ymin = q25_tmin, ymax = q75_tmin, fill = "最低温分位数"), alpha = 0.2) +
  geom_ribbon(aes(ymin = q25_tmax, ymax = q75_tmax, fill = "最高温分位数"), alpha = 0.2) +
  # 添加浅灰色月度垂直分隔线
  geom_vline(xintercept = as.numeric(month_starts), color = "#e0e0e0", linetype = "dashed") +
  # 应用theme_hc主题
  theme_hc() +
  # 自定义标签与图例
  labs(x = "日期", y = "气温", color = "", fill = "")

方法2：结合annotate()与scale_x_date()自动生成 #

无需手动生成日期向量，直接利用刻度断点绘制分隔线：

ggplot(df, aes(x = date)) +
  # 你的气温可视化图层
  geom_line(aes(y = tmin, color = "最低温")) +
  geom_line(aes(y = tmax, color = "最高温")) +
  # 添加垂直分隔线
  annotate("segment", 
           x = as.Date(scale_x_date(breaks = "month")$breaks),
           xend = as.Date(scale_x_date(breaks = "month")$breaks),
           y = -Inf, yend = Inf,
           color = "#e0e0e0", linetype = "dashed") +
  theme_hc() +
  scale_x_date(breaks = "month", date_labels = "%Y-%m") +
  labs(x = "日期", y = "气温", color = "", fill = "")

小提示 #

• 调整color参数可改变灰度深浅，比如#f0f0f0更浅，#cccccc稍深
• 通过linetype可切换线条样式（实线、点线等）
• 若日期为POSIXct格式，将as.Date()替换为as.POSIXct()即可

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