ggplot2绘图如何固定x轴显示指定日期刻度（无数据也展示）

原代码无法实现需求有三个核心问题：

• as.Date()传参错误：主刻度breaks参数里的as.Date("2022-04-21", "2022-06-13")写法不符合函数语法，as.Date()第二个入参是日期格式配置，不是第二个日期值，这行代码实际无法正确解析出你想要的起止日期。
• 刻度类型设置错误：你把需要显示标签的9个目标日期全部传给了minor_breaks（次刻度）参数，ggplot默认次刻度只显示短刻度线、不展示文本标签，自然看不到你要的日期文本。
• 未强制指定坐标轴范围：从提供的数据集来看，现有数据最早的日期是2022-05-23，远晚于你要展示的最早日期2022-04-21，如果不手动设置轴范围，ggplot会自动根据数据范围裁剪坐标轴，范围外的刻度会被直接隐藏。

library(ggplot2)

# 提前定义需要固定展示的所有目标日期
target_dates <- as.Date(c(
  "2022-04-21", "2022-05-20", "2022-05-23", "2022-05-27",
  "2022-05-30", "2022-06-03", "2022-06-07", "2022-06-10", "2022-06-13"
))

ggplot(Afstand_ind, aes(Datum, distance_m)) +
  geom_point() +
  scale_x_date(
    date_labels = "%b %d",
    breaks = target_dates, # 目标日期全部设为主刻度，自动显示对应标签
    limits = range(target_dates) # 强制x轴范围覆盖所有目标日期，缺数据的日期也不会被裁掉
  ) +
  scale_y_continuous(breaks = seq(0, 150, by = 5)) +
  theme_classic()

• 运行代码后所有指定日期都会在x轴固定展示，即使对应日期没有观测值，也会保留刻度位置和标签，无数据的位置不会凭空生成散点。
• 如果日期标签出现重叠，可以在theme()中添加axis.text.x = element_text(angle = 45, hjust = 1)调整标签角度适配显示。

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