Stampa di più ggplot in un singolo pdf, più grafici per pagina

Question

Ho una lista, p, in cui ogni elemento di p è un elenco di oggetti di disegno ggplot2.

Vorrei uscita un singolo PDF contenente tutte le trame in p in modo tale che le trame in p[[1]] sulla pagina 1, le trame in p[[2]] sono a pagina 2, ecc Come potrei fare questo?

Ecco alcuni esempi di codice per fornire la struttura dati con cui sto lavorando - scuse per i grafici noiosi, ho scelto le variabili a caso.

require(ggplot2) 
p <- list() 

cuts <- unique(diamonds$cut) 
for(i in 1:length(cuts)){ 
    p[[i]] <- list() 
    dat <- subset(diamonds, cut==cuts[i]) 
    p[[i]][[1]] <- ggplot(dat, aes(price,table)) + geom_point() + 
     opts(title=cuts[i]) 
    p[[i]][[2]] <- ggplot(dat, aes(price,depth)) + geom_point() + 
     opts(title=cuts[i]) 
} 

Answer 1

Questa soluzione è indipendente dal fatto che le lunghezze degli elenchi nell'elenco p siano diverse.

library(gridExtra) 

pdf("plots.pdf", onefile = TRUE) 
for (i in seq(length(p))) { 
    do.call("grid.arrange", p[[i]]) 
} 
dev.off() 

causa della onefile = TRUE funzione pdf salva tutti gli elementi grafici che appaiono in sequenza nello stesso file (una pagina per un grafico).

Answer 2

Ecco una soluzione, ma non mi piace particolarmente:

ggsave("test.pdf", do.call("marrangeGrob", c(unlist(p,recursive=FALSE),nrow=2,ncol=1)))

Il problema è che si basa sulla presenza dello stesso numero di trame in ciascun gruppo. Se all(sapply(p, length) == 2) fosse falso, allora si romperebbe.

Answer 3

Ecco una versione più semplice della soluzione di Sven per i principianti R che altrimenti userebbero ciecamente le liste do.call e nidificate di cui non hanno bisogno né capiscono. Ho prove empiriche. :)

library(ggplot2) 
library(gridExtra) 

pdf("plots.pdf", onefile = TRUE) 
cuts <- unique(diamonds$cut) 
for(i in 1:length(cuts)){ 
    dat <- subset(diamonds, cut==cuts[i]) 
    top.plot <- ggplot(dat, aes(price,table)) + geom_point() + 
     opts(title=cuts[i]) 
    bottom.plot <- ggplot(dat, aes(price,depth)) + geom_point() + 
     opts(title=cuts[i]) 
    grid.arrange(top.plot, bottom.plot) 
} 
dev.off()