在ggplot2中使用cowplot的plot_grid（ncol=1）时如何提升子图垂直高度？

以下是几个直接可行的解决方案，针对性提升子图行高：

方案1：精准设置rel_heights参数 #

当ncol=1时，rel_heights是控制行高比例的核心参数。如果要让每个子图行高至少提升4倍，直接给每个子图分配4倍的权重值（默认每个子图权重为1）：

# 给列表中每个子图分配4的高度权重
grid_plot <- plot_grid(
  plotlist = list_of_plots_for_grid_plot,
  ncol = parm_ncol,
  scale = 1,
  rel_heights = rep(4, length(list_of_plots_for_grid_plot))
)

如果子图内容差异大，也可以单独调整特定子图的高度，比如rel_heights = c(4, 6, 4)让第二个子图占比更高。

方案2：给每个子图预设固定高度 #

先批量给子图设置统一的绘图高度，避免plot_grid自动压缩空间：

# 给每个子图设置4cm的固定高度（可按需调整数值）
adjusted_plots <- lapply(list_of_plots_for_grid_plot, function(p) {
  p + theme(plot.height = unit(4, "cm"), plot.margin = margin(10, 10, 10, 10))
})

# 再用plot_grid组合调整后的子图
grid_plot <- plot_grid(
  plotlist = adjusted_plots,
  ncol = parm_ncol,
  scale = 1
)

方案3：配合对齐参数优化空间利用 #

如果子图的坐标轴、标题占用额外空间导致绘图区域被挤压，加上垂直对齐参数可以释放更多空间：

grid_plot <- plot_grid(
  plotlist = list_of_plots_for_grid_plot,
  ncol = parm_ncol,
  scale = 1,
  rel_heights = rep(4, length(list_of_plots_for_grid_plot)),
  align = "v",  # 垂直对齐所有子图
  axis = "lr"   # 对齐左右坐标轴
)

方案4：指定输出文件的整体高度 #

保存图片时设置足够大的总高度，确保每个子图有充足的显示空间：

# 总高度按“每个子图4cm × 子图数量”设置，宽度按需调整
ggsave(
  "grid_plot.png",
  grid_plot,
  height = 4 * length(list_of_plots_for_grid_plot),
  width = 8,
  dpi = 300
)

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