R使用ggarrange拼接多面板图时首图缩小，如何统一绘图区域尺寸

绘图区域大小不一致的核心原因是ggpubr::ggarrange默认会根据每个子图的轴标签、刻度文本长度动态分配边距和绘图区占比，首个子图的Y轴标题包含换行、X轴刻度为45度倾斜，占用了更多边距空间，才会挤压实际绘图区域。以下是两种可直接落地的解决方案：

方案1：使用patchwork包拼接（优先推荐） #

patchwork包原生支持自动对齐所有子图的绘图区域，无需手动调整边距，仅需修改最后拼接部分的代码即可：

# 安装加载patchwork包
# install.packages("patchwork")
library(patchwork)

# 直接拼接3个子图，自动对齐绘图区域
Fig3_plots <- Length_Site_Reg + GC_hist + trimmed_k2_data_hist + 
  plot_layout(ncol = 3, widths = c(1,1,1))
Fig3_plots

方案2：保留ggpubr::ggarrange，手动统一子图边距 #

如果需要继续使用ggarrange，可给3个ggplot对象的theme参数新增完全一致的plot.margin配置，强制所有子图的边距统一，拼接后绘图区域大小就会完全相同：

# 示例：在每个ggplot的theme参数中新增plot.margin配置，三个图的数值要完全一致
theme(
  # 新增边距配置，四个数值分别对应上、右、下、左的边距，可根据需求调整大小
  plot.margin = unit(c(10, 10, 25, 10), "pt"),
  # 你原有theme的其他参数保持不变
  aspect.ratio = 1, 
  axis.text.x = element_text(angle=45, hjust = 1),
  ...
)

修改完三个图的theme配置后，再用你原有的ggarrange代码拼接即可。

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