如何通過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)