如何按年份分组绘制geom_line并设置X轴周期间隔标签？

要实现不同年份线条在同一1-12月周期对齐，并设置自定义周间隔X轴标签，核心是把不同年份的日期映射到同一个基准周期（比如用某一闰年的月日作为虚拟日期），让同周期的日期在X轴上重合。以下是具体步骤和代码：

1. 数据预处理 #

先给原始数据添加年份分组字段，同时生成虚拟日期（保留原日期的月日，用固定年份如2020年作为基准），这样不同年份的同周日期会对齐到X轴同一位置：

library(tidyverse)
library(lubridate)

# 假设你的原始数据框名为df，包含date和n列
df_processed <- df %>%
  mutate(
    year = year(date),  # 提取年份用于分组和颜色区分
    # 生成虚拟日期：用2020年（闰年，覆盖所有日期）作为基准年，保留原日期的月日
    dummy_date = ymd(paste("2020", month(date), day(date), sep = "-"))
  ) %>%
  # 过滤你需要的时间范围：2018-04-01 至 2021-03-31
  filter(date >= ymd("2018-04-01") & date <= ymd("2021-03-31"))

2. 绘制对齐的趋势线图 #

用虚拟日期作为X轴，年份作为分组和颜色映射，同时自定义X轴的三周间隔标签：

ggplot(df_processed, aes(x = dummy_date, y = n, group = year, color = factor(year))) +
  geom_line(linewidth = 1) +
  # 自定义X轴：三周间隔断点+指定格式标签
  scale_x_date(
    # 限定X轴范围：对应2020-04-01至2021-03-31，匹配你的跨年度周期
    limits = ymd(c("2020-04-01", "2021-03-31")),
    # 生成每三周的断点
    breaks = seq(ymd("2020-04-01"), ymd("2021-03-31"), by = "3 weeks"),
    # 自定义标签格式：如"1-7 Apr" "22-28 Apr"
    labels = function(x) {
      start_day <- day(x)
      end_day <- day(x + days(6))
      month_abbr <- format(x, "%b")
      paste0(start_day, "-", end_day, " ", month_abbr)
    },
    name = "日期"
  ) +
  scale_color_discrete(name = "年份") +
  labs(y = "n值", title = "2018-2021年周度趋势对比") +
  theme_minimal() +
  # 旋转X轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

你之前方法的问题说明 #

• 方法一：直接用原始date作为X轴时，不同年份的日期是连续的时间序列，X轴会从2018年展开到2021年，无法让不同年份的线条对齐到同一周期。
• 方法二：拆分数据集后仍使用原始date，不同年份的日期在X轴上处于不同位置，线条无法重叠展示同周期的趋势对比。

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