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

Question

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

给我以下错误

gList 中的错误（list（grobs = list（list（x = 0.5，y = 0.5，width = 1，height = 1，：“gList”中只允许“grobs”）

假设我的第二个图表必须从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。