如何用ggplot简化绘制不同年份同日期数据于单张图表

嘿，我懂你想把不同年份里同月同日的数据对齐到x轴同一个位置来画折线图的需求，之前那套繁琐的处理方法确实太折腾了，给你分享个更简洁高效的方案！

我们只需要把所有日期的年份统一替换成同一个固定值（比如随便选个2020年，不影响月日的对齐），这样不同年份的同月同日就会变成完全相同的日期值，ggplot自然会把它们放在x轴的同一位置上。

1. 用lubridate包快速处理日期（推荐） #

lubridate是R里处理日期时间的神器，能帮我们一行代码搞定日期对齐：

# 先加载需要的包
library(lubridate)
library(ggplot2)

# 假设你的数据框是df，日期列叫date，y值列叫y_value
# 把所有日期的年份替换成2020，生成对齐后的日期列
df$aligned_date <- update(df$date, year = 2020)

2. 绘制折线图 #

现在用对齐后的日期做x轴，再用年份区分不同折线：

ggplot(df, aes(x = aligned_date, y = y_value)) +
  # 按年份分组并设置颜色区分
  geom_line(aes(color = factor(year(date)), group = factor(year(date)))) +
  # x轴只显示月日，隐藏统一的2020年份
  scale_x_date(date_labels = "%m-%d", date_breaks = "1 month") +
  # 调整标签让图表更清晰
  labs(x = "月-日", color = "年份", title = "不同年份同月同日数据对比") +
  theme_minimal()

3. 不用lubridate的base R替代方案 #

如果不想额外装包，用base R也能实现：

# 提取原日期的月日部分，拼接固定年份生成对齐日期
df$aligned_date <- as.Date(paste("2020", format(df$date, "%m"), format(df$date, "%d"), sep = "-"))

# 绘图代码和上面一致
ggplot(df, aes(x = aligned_date, y = y_value)) +
  geom_line(aes(color = factor(year(date)), group = factor(year(date)))) +
  scale_x_date(date_labels = "%m-%d", date_breaks = "1 month") +
  labs(x = "月-日", color = "年份")

这样处理后，2016-01-01和2017-01-01会被转换成同一个日期（2020-01-01），在x轴上完全对齐，不同年份的折线会在这个位置各自显示对应的y值，完美实现你想要的对比效果！

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