Конвертировать gtable в ggplot в R ggplot2

Question

Хотя gtable можно преобразовать в ggplot с помощью ggplotify::as.ggplot, выходные данные отличаются от исходного ggplot. Например:

library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
g <- ggplot_gtable(ggplot_build(p))
p_new <- ggplotify::as.ggplot(p)

# origin
p + theme(aspect.ratio = 2)

# changed
p_new + theme(aspect.ratio = 2)   # different figure shape from the origin one

Как я могу преобразовать gtable в такой же ggplot p_new как исходный p?

Answer 1

Вы можете использовать ggplotify::as.ggplot():

library("ggplotify")
as.ggplot(q)