在ggplot中使用数值型X轴时添加间隔4个月的日期标签

不需要将日期转换为数值型就能实现矩形铺满X轴，同时可以通过scale_x_datetime轻松设置间隔4个月的日期标签。以下是修改后的完整代码：

set.seed(123)

start_date_time <- as.POSIXct("2023-07-01 00:00:00")
end_date_time <- as.POSIXct("2024-07-01 00:00:00") # 调整为跨年度数据，方便展示4个月间隔效果
date_time <- seq(from = start_date_time, to = end_date_time, by = "1 day") # 简化数据密度，便于演示

depth <- runif(length(date_time), min = 0, max = 0.5)

df <- data.frame(date_time = date_time, depth = depth)

full_level <- 0.4
pipe_bottom <- 0.15
pipe_top <- 0.35
pipe <- 0.25

df %>%
  ggplot(aes(x = date_time,
             y = depth)) +
  geom_line(size = 0.25) +
  labs(x = "Date", 
       y = "Water level (m)") +
  geom_hline(yintercept = full_level, linetype = 'dashed', 
             color = 'black') +
  annotate("text", x = min(df$date_time), y = (full_level + 0.03),
           label = "Full level", size = 8 / .pt) +
  annotate("text", x = min(df$date_time), y = pipe,
           label = "Pipe", size = 8 / .pt) +
  annotate("rect", xmin = -Inf, xmax = Inf, # 直接在日期轴使用-Inf/Inf即可铺满边缘
           ymin = pipe_bottom, ymax = pipe_top, alpha = .1) +
  scale_x_datetime(
    breaks = seq(min(df$date_time), max(df$date_time), by = "4 months"), # 设置4个月间隔的刻度点
    labels = function(x) format(x, "%Y-%m") # 自定义日期显示格式为年-月
  ) +
  theme_classic() +
  theme(
    plot.title = element_blank(),
    axis.text = element_text(size = 8),
    axis.title = element_text(size = 8.5),
    legend.title = element_blank(),
    legend.position = "top",
    panel.border = element_rect(color = "black", fill = NA)
  )

关键修改说明： #

• 保留日期类型作为X轴：ggplot原生支持对POSIXct类型的日期使用-Inf和Inf，因此annotate("rect")可以直接铺满绘图边缘，完全不需要将日期转换为数值。
• 自定义X轴日期间隔：通过scale_x_datetime的breaks参数指定每4个月生成一个刻度，labels参数可以根据需求调整日期显示格式（示例用%Y-%m显示年-月，也可改为%Y/%m/%d等格式）。
• 示例中调整了数据时间范围和密度，是为了更直观展示4个月间隔的效果，你可以根据实际数据改回原时间范围和采样频率。

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