Comment obtenir le graphique de base plot.new à combiner avec d'autres via arrangeGrob?

Question

J'ai le cas d'utilisation simplifié suivant. Au fond, j'ai quelques parcelles ggplot2 que je voudrais combiner avec une autre qui est généré en utilisant la bibliothèque graphique de base plot.new() etc:

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) 

Quelles sont les options pour le faire? séparée de réécriture p4 pour être natif ggplot2

Answer 1

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