ggplot使用scale_x_date为各年设置相同月日x轴标签的实现方案

问题1解决：所有年份显示相同月日的x轴刻度 #

你当前硬编码了2015年的固定日期作为刻度，其余年份的x轴范围是对应年份的8月1日-7日，2015年的日期不在范围内，因此没有显示。
修改逻辑：在绘图函数内动态读取当前数据的年份，生成对应年份的指定月日刻度，修改scale_x_date的breaks参数即可：

test_line_plot <- function (x) {
  # 读取当前数据对应年份，无需额外包的写法
  cur_year <- unique(format(x$date, "%Y"))
  # 生成当前年份的8月4日、8月6日作为刻度
  target_breaks <- as.Date(paste0(cur_year, c("/08/04", "/08/06")))
  
  ggplot(x, aes(date, Flow, group = RCH)) +
    geom_line() + 
    # 原facet_wrap属于冗余逻辑，改为用标题标注年份即可
    labs(title = cur_year) +
    scale_x_date(date_labels = "%b %d", 
                 breaks = target_breaks)+
    theme (panel.grid.minor = element_blank()) +
    coord_cartesian(ylim = c(0, 1000))
}

问题2解决：2015年图表尺寸更小的问题 #

原因 #

1. 原代码冗余使用了facet_wrap，每个单年数据生成的图表都会自带分面标题条，布局计算逻辑不一致
2. 原代码仅2015年的x轴有刻度标签，占用了额外的垂直空间，导致绘图区域被压缩，看起来比其他没有x轴刻度的图更小

解决方法 #

1. 按上面的代码删除冗余的facet_wrap，改用labs(title)标注年份
2. 调用ggarrange时添加align = "v"参数，垂直对齐所有子图，强制统一绘图区域尺寸：

test_plot_list <- lapply(Flowtest , test_line_plot)
library("ggpubr")
# 新增align = "v"参数垂直对齐
test_plot <- ggarrange(plotlist = test_plot_list, nrow = 4, ncol = 1, align = "v")
plot(test_plot)

如果不需要每个子图都显示x轴标签，可以在主题中统一设置：仅最后一个子图显示x轴，其余隐藏，进一步统一布局。

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