在R中如何通过grid.arrange使多个ggplot2柱状图宽度一致？

嘿，这个问题我太熟了！当不同子图的图例标签长度差异大的时候，grid.arrange确实会自动调整整个图的宽度，导致柱状图的核心面板（就是画柱子的区域）宽窄不一，看着特别别扭。这里有几个实用的解决思路，你可以按需选：

方法1：提取共用图例，只显示一次（强烈推荐如果所有图的图例一致） #

如果你的10个柱状图用的是同一个分类逻辑（只是数据不同），完全没必要每个图都挂图例——把所有子图的图例去掉，单独生成一个图例拼在旁边就行，既整洁又能保证所有柱状图宽度一致。

library(ggplot2)
library(gridExtra)
library(grid)

# 模拟你的循环生成过程（简化为3个图，其中一个用长标签）
set.seed(123)
plot_list <- list()
for(i in 1:3){
  # 模拟长短不同的图例标签
  label_set <- if(i == 3) c("超级超级长的分类标签A", "超级超级长的分类标签B") 
               else c("短标签A", "短标签B")
  
  df <- data.frame(
    category = factor(sample(c(0,1), 20, replace = TRUE), labels = label_set),
    value = rnorm(20)
  )
  
  # 只有第一个图保留图例，其他图隐藏图例
  p <- ggplot(df, aes(x = category, y = value, fill = category)) +
    geom_col() +
    theme(legend.position = if(i == 1) "right" else "none")
  
  plot_list[[i]] <- p
}

# 提取图例的工具函数
get_legend <- function(ggplot_obj){
  gtable_obj <- ggplot_gtable(ggplot_build(ggplot_obj))
  legend_index <- which(sapply(gtable_obj$grobs, function(x) x$name) == "guide-box")
  return(gtable_obj$grobs[[legend_index]])
}
shared_legend <- get_legend(plot_list[[1]])

# 拼接子图和图例，调整宽度比例让柱状图区域一致
grid.arrange(
  arrangeGrob(grobs = plot_list[-1], ncol = 2), # 放所有无图例的子图
  shared_legend,
  ncol = 2,
  widths = c(4, 1) # 可根据实际情况调整比例
)

方法2：强制统一所有图的面板宽度（用gtable精细调整） #

如果每个子图必须保留自己的图例，那可以用gtable直接修改每个图的面板宽度，把所有柱状图的核心区域设为同一个宽度。

library(ggplot2)
library(gridExtra)
library(gtable)

# 同样先模拟生成带不同长度图例的子图列表
set.seed(123)
plot_list <- list()
for(i in 1:3){
  label_set <- if(i == 3) c("超级超级长的分类标签A", "超级超级长的分类标签B") 
               else c("短标签A", "短标签B")
  
  df <- data.frame(
    category = factor(sample(c(0,1), 20, replace = TRUE), labels = label_set),
    value = rnorm(20)
  )
  
  p <- ggplot(df, aes(x = category, y = value, fill = category)) +
    geom_col()
  
  plot_list[[i]] <- p
}

# 把所有ggplot对象转成gtable
gtable_list <- lapply(plot_list, ggplotGrob)

# 找到每个gtable中面板的宽度，取最大值作为统一目标
panel_widths <- sapply(gtable_list, function(x) x$widths[grep("panel", x$layout$name)])
target_panel_width <- max(panel_widths)

# 调整每个gtable的面板宽度为目标值
adjusted_gtable_list <- lapply(gtable_list, function(g){
  g$widths[grep("panel", g$layout$name)] <- target_panel_width
  return(g)
})

# 拼接调整后的gtable
grid.arrange(grobs = adjusted_gtable_list, ncol = 2)

方法3：用patchwork包一键对齐（最省心） #

patchwork是专门为拼接ggplot图设计的包，对齐逻辑非常智能，默认就能帮你把所有子图的面板对齐，代码也超级简洁。

library(ggplot2)
library(patchwork)

# 模拟生成子图列表
set.seed(123)
plot_list <- list()
for(i in 1:3){
  label_set <- if(i == 3) c("超级超级长的分类标签A", "超级超级长的分类标签B") 
               else c("短标签A", "短标签B")
  
  df <- data.frame(
    category = factor(sample(c(0,1), 20, replace = TRUE), labels = label_set),
    value = rnorm(20)
  )
  
  p <- ggplot(df, aes(x = category, y = value, fill = category)) +
    geom_col()
  
  plot_list[[i]] <- p
}

# 直接拼接，强制水平对齐面板
wrap_plots(plot_list, ncol = 2) + 
  plot_layout(align = "h")

个人最推荐patchwork的方案，代码少效果稳；如果所有图的图例是共用的，方法1会让整体布局更清爽。

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