如何在ggplot中让多幅图（含分面图）的输出尺寸统一？

当然可以实现，下面提供两种常用的解决方案：

方法1：让分面中的每个子图保持固定尺寸 #

如果希望分面图里的每个子图都维持宽5、高4的尺寸，你可以在导出时根据分面数量动态计算整体图形的尺寸，用ggsave循环处理列表中的每个图形：

library(ggplot2)

# 定义单个子图的目标尺寸
subplot_width <- 5
subplot_height <- 4

# 生成示例图形列表
p1 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
p2 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point() + facet_wrap(~Species, scales = "free", ncol = 1)
p3 <- ggplot(mtcars, aes(x = mpg, y = cyl)) + geom_point() + facet_wrap(~vs, scales = "free", ncol = 1)

plot_list <- list(p1, p2, p3)

# 循环导出，动态计算整体尺寸
for (i in seq_along(plot_list)) {
  # 获取图形的面板数量：普通图为1，分面图则是子图数量
  n_panels <- length(ggplot_build(plot_list[[i]])$layout$panel_params)
  total_width <- subplot_width
  total_height <- subplot_height * n_panels
  
  ggsave(
    filename = paste0("plot_", i, ".png"),
    plot = plot_list[[i]],
    width = total_width,
    height = total_height,
    units = "in"
  )
}

这样导出后，每个子图都会严格保持5x4的尺寸，分面图的整体高度会根据子图数量自动调整。

方法2：强制整个图形的输出尺寸统一 #

如果要求不管分面数量多少，整个图形的输出尺寸固定为5x4，直接在导出时指定统一的宽高即可，分面的子图会自动适配这个整体尺寸：

for (i in seq_along(plot_list)) {
  ggsave(
    filename = paste0("fixed_plot_", i, ".png"),
    plot = plot_list[[i]],
    width = 5,
    height = 4,
    units = "in"
  )
}

这种方式下，分面越多子图会被压缩得越小，但所有图形的整体输出尺寸完全一致。

额外技巧：固定子图的宽高比例 #

如果你希望在绘图阶段就锁定子图的宽高比例，可以添加theme(aspect.ratio = 4/5)（对应宽5高4的比例）：

p1_fixed <- p1 + theme(aspect.ratio = 4/5)
p2_fixed <- p2 + theme(aspect.ratio = 4/5)

这样不管后续导出时的尺寸如何，子图的宽高比例都会保持一致，再结合导出时的固定尺寸，就能完美实现统一效果。

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