如何将gtable转换为与原ggplot效果一致的ggplot对象？

这个差异出现的核心原因是：ggplotify::as.ggplot()本质是把gtable包装成了annotation_custom()元素放到空ggplot里，而annotation_custom()的内容是固定尺寸的静态图形，不会响应ggplot坐标系统的aspect.ratio调整——原始ggplot的aspect.ratio是作用于坐标面板的缩放逻辑，两者的工作机制完全不同，所以会出现形状差异。

这里有两种可行的解决方案，根据你的需求选择：

方案1：提前设置aspect.ratio再转换（适合不需要后续调整比例的场景） #

如果你的需求是最终得到固定aspect ratio的ggplot对象，可以先在原始ggplot上设置好比例，再转成gtable和ggplot：

library(ggplot2)
library(ggplotify)

# 先设置好aspect.ratio再构建gtable
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() + theme(aspect.ratio = 2)
g <- ggplot_gtable(ggplot_build(p))
p_new <- as.ggplot(g)

# 此时p_new的形状和原始p完全一致
p_new

方案2：用cowplot的ggdraw实现可响应的比例调整（适合需要后续修改比例的场景） #

如果你需要后续灵活调整aspect.ratio，推荐使用cowplot包的ggdraw()函数，它会把gtable放入一个支持坐标缩放的容器中，能响应theme的比例设置：

library(ggplot2)
library(cowplot)

p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
g <- ggplot_gtable(ggplot_build(p))

# 用ggdraw包裹gtable
p_new <- ggdraw(g)

# 后续调整aspect.ratio会和原始ggplot效果一致
p_new + theme(aspect.ratio = 2)

原理补充 #

ggdraw()创建的绘图对象会将gtable作为可缩放的图层，而非静态的annotation元素，当你调整aspect.ratio时，整个绘图区域的缩放逻辑和原始ggplot保持一致，因此能得到和原始图形完全相同的形状效果。

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