在ggplot2中按年份分组时创建指定月份的月-日标签

核心思路 #

不要将日期转为因子类型，而是保留日期的数值属性——把所有年份的9-11月日期映射到同一年（比如2020年），生成“虚拟日期”。这样底层仍是日期类型，就能用scale_x_date灵活设置标签间隔和显示格式，完美匹配你想要的坐标轴效果。

修改后的代码 #

library(tidyverse)
library(lubridate)

date = seq(dmy("01-01-2020"), dmy("01-01-2023"), by = "day")
sample = rnorm(length(date), mean = 0, sd = 0.2)
tb <- tibble(date = date, sample = sample)

tb %>%
  filter(month(date) >= 9, month(date) <= 11) %>%
  # 生成虚拟日期：将所有日期映射到2020年的对应月日，保留日期类型
  mutate(virtual_date = make_date(2020, month(date), day(date)),
         year = factor(year(date))) %>%
  ggplot(aes(x = virtual_date, y = sample, group = year, color = year)) + 
  geom_line(size = 0.75) +
  # 设置x轴标签：每隔15天显示一个，格式为月份缩写+日期
  scale_x_date(breaks = seq(make_date(2020,9,1), make_date(2020,11,30), by = "15 days"),
               date_labels = "%b-%d",
               limits = c(make_date(2020,9,1), make_date(2020,11,30))) +
  labs(x = "日期")

两种格式导致图表变化的原因 #

当你用%m-%d和%b-%d生成字符串转因子时，图表变化的核心是因子水平的排序逻辑不同：

• %m-%d生成两位数字的月日字符串（如"09-01"、"10-01"），字典序和实际日期顺序完全一致，x轴的时间序列排列正确；
• %b-%d生成月份缩写+日期的字符串：如果是中文环境，可能生成"九月-01"、"十月-01"这类内容，若月份是不带前导零的数字格式（如"9月1日"），字符串字典序会错乱（比如"10月1日"首字符是"1"，会排在"9月1日"前面）；即使是英文环境，若factor()未指定levels参数，也可能因数据中日期的出现顺序导致因子水平顺序异常，最终打乱x轴的时间排列，图表自然出现变化。

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