将基本r打印保存为可在多点打印中打印的对象

这个问题建立在一个图的基础上，该图显示了如何使用@MrFlick正确指出的

%将绘图轻松存储为
r
对象，这是一种比
%更好的方法，似乎您应该在链接的问题上使用公认的答案，而不是
%@MrFlick哦，我明白了。我没有完全理解链接帖子的公认答案。实际上，使用
gridGraphics
方法是可行的。你想发布一个答案，还是我应该删除这个问题，因为它有点多余…？如果你有代码使你的示例工作，我建议回答你自己的问题，因为它可能对其他人有用。我按照你的答案来解决我的问题，但没有成功。有什么建议吗？我想使用从
plot
创建的图形生成一个多点图。
library(ggplot2)
library(pryr)
library(gridExtra)

Fig1 <- qplot(speed, data=cars, geom="histogram")
Fig2 <- qplot(dist, speed, data=cars, geom="point")

Fig3 %<a-% plot(cars$speed, cars$dist)
Fig3

Figs <- grid.arrange(Fig1, Fig2, Fig3,
                     layout_matrix = rbind(c(1,1,1,2,2), c(1,1,1,2,2), c(3,3,3,3,3)))

Error in gList(list(grobs = list(list(x = 0.5, y = 0.5, width = 1, height = 1,  : 
  only 'grobs' allowed in "gList"

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

Fig1 <- qplot(speed, data=cars, geom="histogram")
Fig2 <- qplot(dist, speed, data=cars, geom="point")

plot(cars$speed, cars$dist)
grid.echo()
Fig3 <- grid.grab()

Figs <- grid.arrange(Fig1, Fig2, Fig3,
                     layout_matrix = rbind(c(1,1,1,2,2), c(1,1,1,2,2), c(3,3,3,3,3)))