R语言ggplot设置x轴每年固定月日刻度及子图尺寸异常求解

• 刻度不显示：你硬编码了x轴刻度为2015年的两个日期，其他年份数据的时间范围不包含这两个日期，自然无法匹配显示刻度、标签和网格线。
• 子图尺寸不一致：仅2015年的子图有x轴标签，占用了额外垂直空间，同时单年数据中多余的facet_wrap调用也会增加额外边距，导致各图绘图区域尺寸不统一。

方案1：保留原有lapply+ggarrange逻辑 #

修改绘图函数，动态生成对应年份的刻度，同时统一边距设置：

test_line_plot <- function (x) {
  # 提取当前数据对应年份
  current_year <- unique(format(x$date, "%Y"))
  # 生成当年的指定日期作为刻度
  target_breaks <- as.Date(paste0(current_year, c("/08/04", "/08/06")))
  
  ggplot(x, aes(date, Flow, group = RCH)) +
    geom_line() + 
    scale_x_date(date_labels = "%b %d", breaks = target_breaks)+
    theme (
      panel.grid.minor = element_blank(),
      # 统一所有图的边距
      plot.margin = unit(c(5,5,15,5), "pt")
    ) +
    coord_cartesian(ylim = c(0, 1000))
}

拼接子图时开启共享轴设置，自动对齐尺寸：

test_plot_list <- lapply(Flowtest , test_line_plot)
library("ggpubr")
test_plot <- ggarrange(
  plotlist = test_plot_list, 
  nrow = 4, ncol = 1,
  # 共享公共轴，自动统一尺寸与轴显示
  common.axes = TRUE
)
plot(test_plot)

方案2：合并数据用原生ggplot分面（更简洁） #

无需拆分列表，直接合并所有数据后用分面实现，代码更简洁，也不会出现尺寸对齐问题：

library(dplyr)
library(ggplot2)
# 合并列表中所有数据为统一数据框
all_flow_data <- bind_rows(Flowtest)
# 新增年份字段用于分面
all_flow_data$year <- format(all_flow_data$date, "%Y")

ggplot(all_flow_data, aes(date, Flow, group = RCH)) +
  geom_line() +
  # 按年分面，x轴独立适配各年时间范围
  facet_wrap(~year, nrow = 4, scales = "free_x") +
  scale_x_date(
    date_labels = "%b %d",
    # 自定义刻度生成函数，自动适配各分面的年份生成指定日期
    breaks = function(x_range) {
      current_year <- format(x_range[1], "%Y")
      as.Date(paste0(current_year, c("/08/04", "/08/06")))
    }
  ) +
  theme(panel.grid.minor = element_blank()) +
  coord_cartesian(ylim = c(0, 1000))

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