如何使带图例与不带图例的两幅ggplot2绘图内部绘图尺寸一致

这个问题我之前也碰到过！你之前的思路方向是对的，但忽略了一个细节：legend.key.width只控制图例里每个符号的宽度，而整个图例组件的总宽度还包含了文字、内边距、外边距等额外元素，所以直接给宽度加2英寸的方式没法精准匹配内部绘图区域的尺寸。

下面给你两种靠谱的解决方案，都能完美实现你要的「内部绘图区域完全一致，叠加后除了图例其他完全重合」的效果：

方法一：用ggplot底层grob对象手动调整（无需额外包） #

这种方法不需要安装新包，直接用tidyverse自带的工具就能实现：

library(tidyverse)

# 准备数据和基础绘图
tb <- tibble(a = 1:10, b = 10:1, c = rep(letters[1:2], 5))
plot1 <- ggplot(tb, aes(a, b)) + geom_point()
plot2 <- ggplot(tb, aes(a, b, colour = c)) + geom_point() + theme(legend.key.width = unit(2, "in"))

# 将绘图转换为底层布局对象（grob）
g1 <- ggplotGrob(plot1)
g2 <- ggplotGrob(plot2)

# 提取plot2中图例区域的总宽度
legend_width <- g2$widths[g2$layout$name == "guide-box"]

# 让plot1的整体宽度和plot2完全一致（相当于给plot1右侧补一个和图例等宽的空白）
g1$widths <- g2$widths

# 保存两个图，注意这里宽度用plot2的总宽度7英寸
ggsave("plot1.jpg", g1, width = 7, height = 5, units = "in")
ggsave("plot2.jpg", g2, width = 7, height = 5, units = "in")

原理是通过ggplotGrob获取绘图的底层布局结构，直接对齐两个图的整体宽度，这样内部的绘图面板（panel）尺寸就会完全一致，导出后叠加的话，plot1的右侧空白刚好对应plot2的图例位置，完美匹配。

方法二：用cowplot包快速对齐（更简便） #

如果你经常需要做这类绘图对齐操作，推荐用cowplot包，它专门解决ggplot的布局和对齐问题，代码更简洁：

library(tidyverse)
library(cowplot)

# 同样准备数据和绘图
tb <- tibble(a = 1:10, b = 10:1, c = rep(letters[1:2], 5))
plot1 <- ggplot(tb, aes(a, b)) + geom_point()
plot2 <- ggplot(tb, aes(a, b, colour = c)) + geom_point() + theme(legend.key.width = unit(2, "in"))

# 自动对齐两个图的所有元素（面板、轴等）
aligned_plots <- align_plots(plot1, plot2, align = "hv", axis = "tblr")

# 保存对齐后的图，用相同的宽高参数即可
ggsave("plot1_aligned.jpg", aligned_plots[[1]], width = 7, height = 5, units = "in")
ggsave("plot2_aligned.jpg", aligned_plots[[2]], width = 7, height = 5, units = "in")

align_plots会自动识别两个图的面板区域，强制它们的尺寸完全相同，你只需要统一保存参数就可以了，非常省心。

如果之后需要调整图例的间距或者外边距，可以用theme(legend.margin = margin(0, 10, 0, 0))这类参数微调，但上面的两种方法已经能完全满足你的核心需求啦～

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