Guardar grid.arrange () plot en el archivo

Estoy tratando de trazar varias parcelas usando ggplot2, organizándolas usando grid.arrange(). Como logré encontrar a alguien que describa el problema exacto que tengo, he citado la descripción del problema en el enlace :

Cuando uso ggsave()después grid.arrange(), es decir

grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
ggsave("sgcirNIR.jpg")

No guardo el diagrama de cuadrícula sino el último ggplot individual. ¿Hay alguna forma de guardar realmente la trama como se muestra mediante el grid.arrange()uso ggsave()o algo similar? Aparte de usar la forma más antigua

jpeg("sgcirNIR.jpg")
grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
dev.off()

El mismo enlace da la solución a continuación:

require(grid)
require(gridExtra)
p <- arrangeGrob(qplot(1,1), textGrob("test"))
grid.draw(p) # interactive device
ggsave("saving.pdf", p) # need to specify what to save explicitly

Sin embargo, no puedo entender cómo usar ggsave()para guardar la salida de la grid.arrange()llamada en el siguiente código, que se toma del enlace :

library(ggplot2)
library(gridExtra)
dsamp <- diamonds[sample(nrow(diamonds), 1000), ] 

p1 <- qplot(carat, price, data=dsamp, colour=clarity)
p2 <- qplot(carat, price, data=dsamp, colour=clarity, geom="path")

g_legend<-function(a.gplot){
tmp <- ggplot_gtable(ggplot_build(a.gplot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
return(legend)}

legend <- g_legend(p1)
lwidth <- sum(legend$width)

## using grid.arrange for convenience
## could also manually push viewports
grid.arrange(arrangeGrob(p1 + theme(legend.position="none"),
                                        p2 + theme(legend.position="none"),
                                        main ="this is a title",
                                        left = "This is my global Y-axis title"), legend, 
                     widths=unit.c(unit(1, "npc") - lwidth, lwidth), nrow=1)

# What code to put here to save output of grid.arrange()?

grid.arrangedibuja directamente en un dispositivo. arrangeGrob, por otro lado, no dibuja nada pero devuelve un grob al gque puede pasar ggsave(file="whatever.pdf", g).

La razón por la que funciona de manera diferente que con los objetos ggplot, donde de forma predeterminada se guarda la última trama si no se especifica, es que ggplot2 hace un seguimiento invisible de la última trama, y ​​no creo grid.arrangeque este contador sea privado del paquete.

Tuve algunos problemas con la propuesta de babptiste, pero finalmente la obtuve. Esto es lo que debes usar:

 # draw your plots
 plot1 <- ggplot(...) # this specifies your first plot
 plot2 <- ggplot(...) # this specifies your second plot
 plot3 <- ggplot(...) # this specifies your third plot

 #merge all three plots within one grid (and visualize this)
 grid.arrange(plot1, plot2, plot3, nrow=3) #arranges plots within grid

 #save
 g <- arrangeGrob(plot1, plot2, plot3, nrow=3) #generates g
 ggsave(file="whatever.pdf", g) #saves g

Esto debería funcionar bien.

Otra forma fácil de guardar un grid.arrange en un archivo pdf es usar pdf ():

pdf("filename.pdf", width = 8, height = 12) # Open a new pdf file
grid.arrange(plot1, plot2, plot3, nrow=3) # Write the grid.arrange in the file
dev.off() # Close the file

Permite fusionar otras cosas que no sean ggplots en la disposición, como tablas ...

Pensé que valía la pena agregar a esto. Tuve problemas con lo anterior, con ggsave produciendo un error: "plot debería ser un ggplot2 plot"

Gracias a esta respuesta: Guardar un gráfico con ggsave después de usar ggplot_build y ggplot_gtable Tengo una enmienda al código anterior.

  # draw your plots
 plot1 <- ggplot(...) # this specifies your first plot
 plot2 <- ggplot(...) # this specifies your second plot
 plot3 <- ggplot(...) # this specifies your third plot

 #merge all three plots within one grid (and visualize this)
 grid.arrange(plot1, plot2, plot3, nrow=3) #arranges plots within grid

 #save
 ggsave <- ggplot2::ggsave; body(ggsave) <- body(ggplot2::ggsave)[-2]

La línea anterior es necesaria para corregir el error.

 g <- arrangeGrob(plot1, plot2, plot3, nrow=3) #generates g
 ggsave(file="whatever.pdf", g) #saves g

Ahora me funciona bien.

No es necesario que se arregle por sí mismo, puede asignar el resultado de grid.arrange directamente a un diagrama y guardarlo usando ggsave:

p3 <- grid.arrange(p1,p2, nrow = 1)
ggsave("filename.jpg", p3)

Otra solución simple: justo después de su grid.arrange()

grid.arrange(plot1, plot2, plot3, nrow=3)

haces un dev.copy()

dev.copy(pdf,"whatever.pdf")
dev.off()