Speichern des Diagramms grid.arrange () in einer Datei

Ich versuche, mehrere Diagramme mit zu zeichnen ggplot2und sie mit anzuordnen grid.arrange(). Da ich jemanden gefunden habe, der das genaue Problem beschreibt, habe ich aus der Problembeschreibung unter dem Link zitiert :

Wenn ich ggsave()nach grid.arrange(), dh

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

Ich speichere nicht das Gitterdiagramm, sondern das letzte einzelne ggplot. Gibt es eine Möglichkeit, den Plot tatsächlich so zu speichern, wie er mit grid.arrange()using ggsave()oder ähnlichem angezeigt wird ? Anders als auf die ältere Art und Weise

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

Der gleiche Link gibt die folgende Lösung:

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

Ich kann jedoch nicht herausfinden, wie ggsave()die Ausgabe des grid.arrange()Aufrufs im folgenden Code gespeichert werden soll, der aus dem Link stammt :

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.arrangezeichnet direkt auf ein Gerät. arrangeGrobAuf der anderen Seite zeichnet nichts, sondern gibt einen Grob zurück g, an den Sie weitergeben können ggsave(file="whatever.pdf", g).

Der Grund, warum es anders funktioniert als bei ggplot-Objekten, bei denen standardmäßig der letzte Plot gespeichert wird, wenn er nicht angegeben wird, ist, dass ggplot2 den neuesten Plot unsichtbar verfolgt, und ich denke nicht, dass grid.arrangedieser Zähler privat für das Paket sein sollte.

Ich hatte einige Probleme mit dem Vorschlag von babptiste, bekam ihn aber endlich. Folgendes sollten Sie verwenden:

 # 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

Das sollte gut funktionieren.

Eine andere einfache Möglichkeit, eine grid.arrange in einer PDF-Datei zu speichern, ist die Verwendung von 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

Es ermöglicht das Zusammenführen anderer Dinge als ggplots in der Anordnung, wie z. B. Tabellen ...

Ich dachte, es lohnt sich, dies zu ergänzen. Ich hatte Probleme mit dem oben genannten, wobei ggsave einen Fehler erzeugte: "plot sollte ein ggplot2-Plot sein"

Dank dieser Antwort: Speichern eines Diagramms mit ggsave nach Verwendung von ggplot_build und ggplot_gtable Ich habe eine Änderung des obigen Codes.

  # 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]

Die obige Zeile wurde benötigt, um den Fehler zu beheben

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

Jetzt funktioniert es gut für mich.

Sie müssen arrangGrob nicht verwenden, Sie können das Ergebnis von grid.arrange direkt einem Plot zuweisen und dieses mit ggsave speichern:

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

Eine weitere einfache Lösung: direkt nach Ihrem grid.arrange()

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

du machst ein dev.copy()

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