在R中绘制多幅方形坐标轴图形时如何减小列间距？

Base R 处理方案 #

• 不要同时使用pty="s"和asp=1，二者功能重叠，同时设置会强制生成额外留白。pty="s"已经限定绘图区域为正方形，单独使用即可。
• 缩小绘图边距：通过par(mar=c(2,2,1,1))调整相对边距（四个值分别对应下、左、上、右的边距，单位为文本行），或者用mai=c(0.2,0.2,0.1,0.1)设置绝对英寸边距，进一步压缩空白。
• 简化绘图元素：去掉不必要的轴标题、缩短轴文本，避免元素挤压导致布局留白。

示例代码：

par(mfrow=c(3,2), mar=c(2,2,1,1), pty="s")
for(i in 1:6) {
  plot(rnorm(100), rnorm(100), xlab="", ylab="", main="")
}
par(mfrow=c(1,1)) # 恢复默认布局

ggplot2 布局优化方案 #

推荐用patchwork包替代gridExtra，它的布局控制更直观：

• 先定义单个方形图的模板，通过theme()缩小内边距，去掉冗余元素：

library(ggplot2)
library(patchwork)

make_square_plot <- function() {
  ggplot(data.frame(x=rnorm(100), y=rnorm(100)), aes(x, y)) +
    geom_point() +
    coord_fixed(ratio=1) + # 强制方形坐标轴
    theme_bw() +
    theme(plot.margin=margin(2, 2, 2, 2, unit="pt"),
          axis.title=element_blank(),
          axis.text=element_text(size=8))
}

• 组合图形时直接设置列数、行数和间距：

# 生成6幅图并组合
plots <- lapply(1:6, function(x) make_square_plot())
wrap_plots(plots, ncol=2, nrow=3, padding=0)

如果坚持用gridExtra，可以通过theme(plot.margin=margin())缩小单图边距，再用grid.arrange(grobs=plots, ncol=2, nrow=3, padding=0)控制间距。

R Markdown 中的适配设置 #

• 在代码块中指定fig.width和fig.height，匹配3行2列的方形布局比例，比如：

{r, fig.width=6, fig.height=9}
# 这里放绘图代码

• 避免默认的高分辨率缩放导致的留白，可在YAML中添加fig_retina: null（针对HTML输出）。

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