r - 将基本 r 图保存为可以在多图中绘制的对象

Question

这个问题来自 related post它显示了如何轻松地将绘图存储为 r对象与 %<a-%来自 pryr 的函数包裹。伟大的!但是，我现在想创建一个将基本 r 图与 2 ggplot 相结合的多图。数字。我正在使用 grid.arrange以下。

使用基数 r cars数据我可以做两个 ggplot数字。

library(ggplot2)
library(pryr)
library(gridExtra)

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

然后我用 plot 做一个图，并使用 %<a-% 将图形保存为对象来自 pryr 的函数包裹。光滑。

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

最后，我想将 3 个数字组合成一个图，如下所示。

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"

如何保存基础 r情节与附加 ggplot 相结合数字？

Answer 1

正如@MrFlick 正确指出的，accepted answer linked here是比 %<a-% 更好的方法不存储网格的函数。

下面的代码产生了想要的结果。

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)))