如何调整R Markdown中ggplot2/ggpubr多图与文本的边距？

问题情况 #

使用ggplot2和ggpubr创建三个横向并排的图表，Knit R Markdown后出现以下问题：

• 图表与上下文本间距过大，导致图表被严重挤压，内容难以辨认
• 尝试theme(plot.margin)无效果，调整fig.height反而可能让图表更小

当前使用的代码块：

{r multi dec, echo=FALSE, fig.align='center'}
multi_sst_dec <- ggarrange(ANFS_sst_dec_10, ANFS_sst_dec_11, ANFS_sst_dec_12,
                       ncol=3, nrow=1,
                       common.legend=TRUE,
                       legend="right")
multi_sst_dec

可行解决方案 #

1. 调整代码块的fig.width和fig.height参数 #

直接给R代码块设置合适的宽高比例，因为是3图横向排列，需要足够的宽度分配给子图，同时控制高度避免上下边距浪费：

{r multi dec, echo=FALSE, fig.align='center', fig.width=12, fig.height=4}
multi_sst_dec <- ggarrange(ANFS_sst_dec_10, ANFS_sst_dec_11, ANFS_sst_dec_12,
                       ncol=3, nrow=1,
                       common.legend=TRUE,
                       legend="right")
multi_sst_dec

• 可根据实际需求调整数值，比如fig.width=10、fig.height=3.5，核心是让宽度足够容纳三个子图+图例，高度匹配子图内容的显示需求。

2. 用ggarrange的widths参数分配子图空间 #

如果需要更精细控制各列宽度（比如给图例预留合理空间），可以添加widths参数：

{r multi dec, echo=FALSE, fig.align='center', fig.width=11, fig.height=4}
multi_sst_dec <- ggarrange(ANFS_sst_dec_10, ANFS_sst_dec_11, ANFS_sst_dec_12,
                       ncol=3, nrow=1,
                       common.legend=TRUE,
                       legend="right",
                       widths=c(1,1,1)) # 三个子图宽度比例相同，若图例占空间可调整为c(1,1,1.2)
multi_sst_dec

• 通过比例分配宽度，避免子图间留白过多，提升空间利用率。

3. 缩小单个子图的内部边距 #

theme(plot.margin)对多图容器无效，但可以给每个子图单独设置更小的内部边距，让内容更紧凑：

# 先预处理每个子图，缩小内外边距
ANFS_sst_dec_10 <- ANFS_sst_dec_10 + theme(plot.margin = margin(0.2, 0.2, 0.2, 0.2, "cm"))
ANFS_sst_dec_11 <- ANFS_sst_dec_11 + theme(plot.margin = margin(0.2, 0.2, 0.2, 0.2, "cm"))
ANFS_sst_dec_12 <- ANFS_sst_dec_12 + theme(plot.margin = margin(0.2, 0.2, 0.2, 0.2, "cm"))

# 再合并多图
{r multi dec, echo=FALSE, fig.align='center', fig.width=12, fig.height=4}
multi_sst_dec <- ggarrange(ANFS_sst_dec_10, ANFS_sst_dec_11, ANFS_sst_dec_12,
                       ncol=3, nrow=1,
                       common.legend=TRUE,
                       legend="right")
multi_sst_dec

• 减少子图自身的边距，让图表内容在有限空间里显示更大，配合整体宽高参数效果更好。

4. 替换为patchwork包布局（可选） #

如果ggpubr的布局控制不够灵活，推荐用patchwork包，它的布局逻辑更贴合ggplot2：

{r multi dec, echo=FALSE, fig.align='center', fig.width=12, fig.height=4}
library(patchwork)
multi_sst_dec <- ANFS_sst_dec_10 + ANFS_sst_dec_11 + ANFS_sst_dec_12 +
  plot_layout(ncol=3) +
  plot_annotation(theme = theme(plot.margin = margin(0,0,0,0,"cm"))) +
  guides(color = guide_legend(title.position = "top")) +
  plot_layout(guides = "collect") # 统一收集图例到右侧
multi_sst_dec

• patchwork能更精准控制整体和子图的边距、空间分配，适合复杂多图布局场景。

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