如何精确调整ggplot尺寸：使两幅图灰色绘图区域完全相等

要自动计算第二幅图的合适宽度，确保两幅图的**绘图区域（灰色panel部分）**完全一致，你可以通过提取图形的grob布局信息实现，无需手动调试。具体步骤如下：

1. 加载所需包 #

需要用到ggplot2和grid包处理图形对象：

library(ggplot2)
library(grid)

2. 将图形转换为grob对象 #

把你的两幅ggplot图形转换为grob（图形对象），以此获取内部布局参数：

# 替换为你的实际图形对象
grob1 <- ggplotGrob(myPlot1)  # 对应原代码中width=12cm的图
grob2 <- ggplotGrob(myPlot2)  # 需要计算宽度的第二幅图

3. 计算第一幅图的实际绘图区域宽度 #

根据第一幅图的设置宽度（12cm），计算其绘图区域的实际宽度：

# 获取第一幅图中绘图区域（panel）的相对宽度比例（相对于总宽度）
panel_rel_width1 <- convertWidth(
  grob1$widths[grob1$layout$l[grob1$layout$name == "panel"]],
  unitTo = "npc",
  valueOnly = TRUE
)

# 计算实际绘图区域宽度（单位：cm）
target_panel_width <- 12 * panel_rel_width1

4. 计算第二幅图所需的总宽度 #

根据第二幅图的绘图区域相对比例，反推需要的总宽度，使其绘图区域宽度与第一幅图完全一致：

# 获取第二幅图中绘图区域的相对宽度比例
panel_rel_width2 <- convertWidth(
  grob2$widths[grob2$layout$l[grob2$layout$name == "panel"]],
  unitTo = "npc",
  valueOnly = TRUE
)

# 计算第二幅图需要的总宽度
required_width <- target_panel_width / panel_rel_width2

5. 保存第二幅图 #

用计算出的宽度保存第二幅图：

ggsave(
  filename = "test2.png",
  plot = myPlot2,
  width = required_width,
  height = 12,
  dpi = 300,
  units = "cm",
  device = "png"
)

补充说明 #

• 如果需要保证高度也完全一致，可采用相同逻辑，替换widths为heights进行计算。
• 该方法适用于任何包含不同坐标轴标签、图例、边距的ggplot图形，能精准匹配绘图区域尺寸。

内容的提问来源于stack exchange，提问作者Řídící