R语言中cowplot包plot_grid()生成过小并排图的问题排查

嘿，我之前也踩过cowplot组合图的这个坑！单独看每张图都好好的，一组合就变歪瓜裂枣，咱们来一步步解决你的问题：

核心问题是plot_grid的默认布局逻辑会自动压缩子图来适配预设的小画布，而且没有继承你单个子图的尺寸/字体比例，再加上你没给组合后的图指定合适的保存尺寸，就出现了图幅小、字体大、留白多的连锁问题。

结合你的代码，我整理了几个关键调整点：

1. 先给子图统一设置主题和留白 #

提前把每个子图的字体大小、内部留白调整好，避免组合后字体突兀、留白冗余：

# 给每张图添加统一的主题设置，按需调整size数值
plot_cf <- plot_cf + 
  theme(text = element_text(size = 10),
        plot.margin = margin(5, 5, 5, 5, "pt")) # 缩小子图内部的留白

plot_pos_neg <- plot_pos_neg + 
  theme(text = element_text(size = 10),
        plot.margin = margin(5, 5, 5, 5, "pt"))

plot_scores <- plot_scores + 
  theme(text = element_text(size = 10),
        plot.margin = margin(5, 5, 5, 5, "pt"))

2. 优化plot_grid的布局参数 #

用rel_widths分配子图的相对宽度（因为你是2列3张图，第三张会独占一行，让它占满两列宽度更合理），同时调整标签大小和子图间距：

general_plot <- plot_grid(plot_cf, plot_pos_neg, plot_scores, 
                          ncol = 2, 
                          align = "h", 
                          labels = c("A", "B", "C"), 
                          label_size = 8, # 标签大小要适配组合后的整体尺寸
                          rel_widths = c(1, 1, 2), # 前两张各占1份宽度，第三张占2份
                          padding = 0.05) # 缩小子图之间的留白

3. 保存组合图时必须指定合适的尺寸 #

这是最容易被忽略的一步！单独保存子图时你肯定指定了宽高，但组合图的画布需要重新设置，否则默认尺寸会很小：

ggsave("general_plot.png", general_plot, 
       width = 14, height = 8, # 根据你的图内容调整，比如宽14高8英寸
       dpi = 300) # 保证图片清晰度

• 图幅过小：plot_grid默认的整体画布尺寸很小，再加上自动压缩子图适配布局，就会显得图特别小；
• 字体尺寸过大：你给子图设置的字体是相对于单个图的尺寸的，组合后如果整体画布没调整，字体就会显得格外大；
• 留白过多：默认的子图内部留白（plot.margin）和子图之间的间距（padding）都偏大，加上align="h"可能会额外增加横向留白。

内容的提问来源于stack exchange，提问作者DavideChicco.it