在X轴绘制日期并自定义标签的ggplot2技术问题

你之前的核心错误是用scale_x_continuous处理日期类型变量——日期类数据需要用scale_x_date来配置刻度和标签，而非针对数值型变量的scale_x_continuous。以下是符合需求的完整解决方案：

完整代码 #

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

df <- data.frame(Date = c("2021-05-01","2021-06-01","2021-07-01","2021-08-01","2021-09-01","2021-10-01","2021-11-01","2021-12-01","2022-01-01","2022-02-01","2022-03-01","2022-04-01","2022-05-01","2022-06-01","2022-07-01","2022-08-01","2022-09-01","2022-10-01","2022-11-01","2022-12-01"),
                 n = c(30,44,58,49,52,40,31,21,29,17,25,14,20,17,10,11,7,20,5,4)) %>%
  mutate(Date = ymd(Date))

ggplot(data=df, aes(x=Date, y=n)) +
  geom_line() +
  scale_x_date(
    # 锁定X轴范围为目标时间段
    limits = c(ymd("2021-05-01"), ymd("2022-12-01")),
    # 每个月生成一个刻度
    date_breaks = "1 month",
    # 设置标签格式：全称月份 + 4位年份
    date_labels = "%B %Y",
    # 旋转标签避免重叠（可选）
    guide = guide_axis(angle = 45)
  )

参数说明 #

• limits：强制X轴从你指定的起始日期到结束日期，避免ggplot自动调整范围
• date_breaks = "1 month"：确保每个月显示一个刻度，刚好覆盖你20个月份的数据
• date_labels = "%B %Y"：%B对应英文全称月份（如May、December），%Y对应4位年份；如果需要缩写月份（如Dec），可以替换为%b %Y
• guide_axis(angle = 45)：旋转标签45度，解决多标签重叠的问题，可根据实际情况调整角度

为什么之前的方法出错 #

Date列是Date类型，而scale_x_continuous是用于处理数值型变量的。强行使用它会把日期转换为底层的数值（从1970-01-01开始的天数），自然会导致标签显示混乱。

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