如何通过arrangeGrob获取基本图形plot.new以与其他人结合？

Question

我有以下简化的用例。基本上我有一些GGPLOT2情节，我想与其他正在使用的基本图形库产生的结合plot.new()等：

p1 <- generate_ggplot1(...) 
p2 <- generate_ggplot2(...) 
p3 <- generate_ggplot3(...) 

# how to get hold of the plot output and make it available as 
# p4 for arrangeGrob? 
plot.new() 
... 

final <- gridExtra::arrangeGrob(p1, p2, p3, p4, layout_matrix = rbind(c(1,2), c(3,4)), widths=c(7,7), heights=c(7,7)) 
ggplot2::ggsave(filename=output.file,plot=final,width=14,height=14) 

哪些选项有做到这一点？从此改写P4分别是原生ggplot2

Answer 1

尝试this，

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

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

b <- grab_grob(function() plot(cars)) 
g <- ggplot() 

grid.arrange(b, g)