Geek asks and answers

Organizing multiple ggplot2 charts

I am trying to create many graphs (simple graphical graphs xy) that I would like to display in a grid. When I use gridExtra package grid.arrange, as the number of graphs grows, each individual section is compressed. Is there a way to create a story canvas so that it spans multiple pages without reducing each individual story?

A simple example from gridExtra:

require(ggplot2)
require(gridExtra)
plots = lapply(1:50, function(.x) qplot(1:10,rnorm(10),main=paste("plot",.x)))
do.call(grid.arrange,  plots)

The above code generates 50 graphs, but they get compressed to fit the canvas. Is there any way to avoid this? those. make them span multiple pages, and each page will have about 9 or so graphs? I am fine with PNG or PDF file formats.

Before trying grid.arrange, I played with a sample code from this site: http://gettinggeneticsdone.blogspot.com/2010/03/arrange-multiple-ggplot2-plots-in-same.html and ran into the same a problem.

I have not yet tried to combine different data frames into one giant data frame with a plot id. Then I thought about the cut with the plot ID, but I'm not sure if he will also have a problem with the reduction of each plot.

I hope my question is clear ...

Thanks, -e

+3
source share
1 answer
library(gridExtra)
library(ggplot2)
my_func = function (d,filename = "filename.pdf") {
    pdf(filename,width=14) # width = 14 inches
    i = 1
    plot = list() 
    for (n in names(d)) {
        ### process data for plotting here ####
        plot[[i]] = qplot(x, y, geom="bar", data = my_data,)
        if (i %% 9 == 0) { ## print 9 plots on a page
            print (do.call(grid.arrange,  plot))
            plot = list() # reset plot 
            i = 0 # reset index
        }
        i = i + 1
    }
    if (length(plot) != 0) {  ## capture remaining plots that have not been written out
        print (do.call(grid.arrange,  plot))
    }
    dev.off()
}
+7
source

More articles:


All Articles