这里有两个解决方案：

假约会

基于斯特凡的解决方案，但有点更普遍化。

library(dplyr)
library(ggplot2)
library(lubridate)

dat %>%
  mutate(fake_date = make_date(year = min(year(date)), day = day(date), month = month(date))) %>%
  ggplot(aes(x = fake_date)) + 
  geom_line(aes(y = var, col = year))

字符串
x1c 0d1x的数据

使用年份网格

这一个涉及到一个简单的连接到一个完整的366天的网格和格式的数字规模手动看起来像一个日期。

day_grid <- tibble(day = 1:366)

day_grid %>%
  right_join({
    dat %>%
      mutate(day = yday(date))    
  }, 
  by = "day") %>%
  ggplot(aes(x = day, y = var)) + 
  geom_line(aes(col = year)) + 
  scale_x_continuous(labels = \(x) format(as_date(x), "%b-%d"))

型

的
创建于2023-10-28使用reprex v2.0.2

你可以创建一个假的日期变量，用同一个基年替换真实的年份，例如，在下面的代码中，我选择了2021年作为基年：

library(ggplot2)
library(dplyr, warn.conflicts = FALSE)

set.seed(123)

dat <- dat |>
  mutate(
    date1 = if_else(year == 2022, date - lubridate::years(1), date)
  )

ggplot(dat, aes(x = date1, y = var, group = year)) +
  geom_line(aes(color = year)) +
  scale_x_date(date_labels = "%b %d")

字符串

的数据