r - 强制将常规绘图对象放入 Grob 以在 grid.arrange 中使用

Question

b <- ggplot(cars,aes(x=speed,y=dist))+geom_line()
grid.arrange(
    b,
    plot(cars),
    ncol=1
)

给我以下错误

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

让我们假设我的第二个图必须来自 plot功能。如何将该输出转换为 grob -like 对象，因此它可以很好地与 grid.arrange 配合使用?

Answer 1

你可以尝试使用 gridGraphics

library(gridGraphics)

grab_grob <- function(){
  grid.echo()
  grid.grab()
}

plot(cars)
g <- grab_grob()
b <- ggplot(cars,aes(x=speed,y=dist))+geom_line()
grid.arrange(
  b,g,
  ncol=1
)

或者，也可以使用 gridBase。