如何为不同分面数的ggplot图形设置统一面板尺寸？

我拥有多个列表，每个列表包含不同数量的数据集（示例代码如下）：

library(tidyverse)

mylist = list()
mylist[[1]] = mtcars 
mylist[[2]] = mtcars |> filter(carb %in% 1:2)
mylist[[3]] = mtcars |> filter(carb == 1)

我需要为列表中的每个数据集生成独立的分面图形，并在RMarkdown或Quarto文档中渲染为HTML。尝试过以下方法但存在问题：

• 配置代码块的fig.width和fig.height参数，根据面板数设置总图形尺寸，但未实现面板尺寸统一；
• 使用egg包的set_panel_size函数，虽能统一面板尺寸，但图形间距过大，且文档中会显示不希望出现的grob相关文本；
• 使用ggh4x包的force_panelsizes函数，同样存在图形间距过大的问题；
• 尝试该包的facet_wrap2，效果与第一种方法类似。

请问如何在保证不同分面数的图形面板尺寸统一的前提下，避免图形间距过大？

方案1：手动计算总尺寸+固定分面列数 #

先定义单个面板的目标宽高，再根据每个数据集的分面数量计算总图形尺寸，结合固定分面列数确保面板大小一致，同时可通过theme()自定义间距。

library(tidyverse)

# 定义单个面板的宽高（单位：英寸）
panel_w <- 3
panel_h <- 2

# 示例数据集列表
mylist <- list(
  mtcars,
  mtcars %>% filter(carb %in% 1:2),
  mtcars %>% filter(carb == 1)
)

# 循环生成图形
walk(mylist, function(data) {
  # 统计分面变量的水平数
  facet_count <- n_distinct(data$carb)
  # 固定分面列数，计算所需行数
  fixed_col <- 3
  row_count <- ceiling(facet_count / fixed_col)
  
  # 计算总图形尺寸
  total_width <- fixed_col * panel_w
  total_height <- row_count * panel_h
  
  # 生成图形，调整面板间距
  p <- ggplot(data, aes(mpg, disp)) +
    geom_point() +
    facet_wrap(~carb, ncol = fixed_col) +
    theme(panel.spacing = unit(0.2, "in")) # 自定义面板间距
  
  # 动态设置当前图形的输出尺寸（适配Quarto/RMarkdown）
  knitr::opts_current$set(fig.width = total_width, fig.height = total_height)
  print(p)
})

方案2：使用patchwork包精准控制 #

patchwork可将每个分面拆为独立图形再拼接，强制统一面板尺寸，同时灵活调整间距，还能统一图例位置。

library(tidyverse)
library(patchwork)

# 定义单个面板的宽高
panel_w <- 3
panel_h <- 2

mylist <- list(
  mtcars,
  mtcars %>% filter(carb %in% 1:2),
  mtcars %>% filter(carb == 1)
)

walk(mylist, function(data) {
  # 按分面变量拆分数据，生成单个面板的图形
  single_plots <- data %>%
    group_split(carb) %>%
    map(function(df) {
      ggplot(df, aes(mpg, disp)) +
        geom_point() +
        labs(subtitle = paste("carb =", unique(df$carb)))
    })
  
  # 拼接图形，统一尺寸并调整间距
  wrapped_plot <- wrap_plots(single_plots, ncol = 3) +
    plot_layout(
      guides = "collect", # 统一图例位置
      widths = unit(panel_w, "in"),
      heights = unit(panel_h, "in")
    ) +
    plot_spacing(unit(0.15, "in")) # 自定义面板间距
  
  print(wrapped_plot)
})

方案3：直接操作gtable（进阶定制） #

提取ggplot的gtable对象，手动调整面板尺寸和间距，适合需要深度定制的场景。

library(tidyverse)
library(gtable)
library(grid)

panel_w <- 3
panel_h <- 2

mylist <- list(
  mtcars,
  mtcars %>% filter(carb %in% 1:2),
  mtcars %>% filter(carb == 1)
)

walk(mylist, function(data) {
  p <- ggplot(data, aes(mpg, disp)) +
    geom_point() +
    facet_wrap(~carb, ncol = 3)
  
  # 提取图形的gtable结构
  gt <- ggplotGrob(p)
  
  # 强制设置所有面板的宽高
  gt$widths[grep("panel", gt$layout$name)] <- unit(panel_w, "in")
  gt$heights[grep("panel", gt$layout$name)] <- unit(panel_h, "in")
  
  # 调整面板间的水平/垂直间距
  gt$widths[grep("colspace", gt$layout$name)] <- unit(0.1, "in")
  gt$heights[grep("rowspace", gt$layout$name)] <- unit(0.1, "in")
  
  # 输出调整后的图形
  grid.draw(gt)
})

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