Saving grid.arrange() plot to file

问题

I am trying to plot multiple plots using ggplot2, arranging them using grid.arrange(). Since I managed to find someone describing the exact problem I have, I have quoted from the problem description from link:

When I use ggsave() after grid.arrange(), i.e.

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

I do not save the grid plot but the last individual ggplot. Is there any way of actually saving the plot as displayed by grid.arrange() using ggsave() or something similar? Other than using the older way

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

The same link gives the solution below:

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

However, I can\'t figure out how to use ggsave() to save the output of the grid.arrange() call in the following code, which is taken from link:

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()?

回答1:

grid.arrange draws directly on a device. arrangeGrob, on the other hand, doesn't draw anything but returns a grob g, that you can pass to ggsave(file="whatever.pdf", g).

The reason it works differently than with ggplot objects, where by default the last plot is being saved if not specified, is that ggplot2 invisibly keeps track of the latest plot, and I don't think grid.arrange should mess with this counter private to the package.

回答2:

I had some problems with babptiste's proposal, but got it finally. Here is what you should use:

 # 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

This should work well.

回答3:

Another easy way to save a grid.arrange to a pdf file is to use 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

It allows to merge other things than ggplots in the arrangement, like tables...

回答4:

I thought it was worth adding to this. I had problems with the above, with ggsave producing an error: "plot should be a ggplot2 plot"

Thanks to this answer: Saving a graph with ggsave after using ggplot_build and ggplot_gtable I have an amendment to the above code.

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

The above line needed to fix the error

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

Now it works for me fine.

回答5:

Another simple solution: just after your grid.arrange()

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

you do a dev.copy()

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

来源：https://stackoverflow.com/questions/17059099/saving-grid-arrange-plot-to-file

标签

ggplot2

gridextra