Più grafici su più pagine utilizzando ggplot

Question

Sto facendo un'analisi esplorativa dei miei dati e ho bisogno di tracciare più elementi grafici usando ggplot. La quantità di grafica è davvero enorme (206 stazioni) e volevo tracciarli in 1 colonna contro 8 righe per pagina sulle tante pagine necessarie. Sono a conoscenza di funzioni come viewport o grid.arrange, ma non riesco a farle funzionare in questo caso. Ho già notato che layout() né par (mfrow = c (8,1)) non funzionano con ggplot, ma invio la parte del codice in cui sono bloccato sotto. Qualsiasi aiuto sarebbe molto apprezzato!

pdf('test.pdf', width=21, height=27) 
par(mfrow=c(8,1)) 
for(i in levels(tab$Station)) 
{ 

print(ggplot(tab[tab$Station==i], aes(x=Date)) + 
    geom_line(aes(y=Tmin), col="blue", size=0.1) + 
    geom_line(aes(y=Tmax), col="red", size=0.1) + 
    geom_text(aes(x=as.Date('2010-01-01'), y=45), label=i) + 
    ylim(0, 45) + 
    scale_x_date(labels = date_format("%Y")) + 
    theme_bw() + 
    theme(
    plot.background = element_blank() 
    ,panel.grid.major = element_blank() 
    ,panel.grid.minor = element_blank() 
    ,panel.border = element_rect(color = 'black') 
    ,panel.background = element_blank() 

) 
) 

} 

dev.off() 

Answer 1

Si dovrebbe semplificare la trama poiché una volta ottenuto l'ordine giusto con una trama semplice, è sufficiente sostituirlo con quello complicato. ggplot2 sono basati sul pacchetto grid, quindi è necessario utilizzare gridExtra per organizzare i grafici. Poi si esegue un ciclo, per ogni 8 lotti, di metterle in un elenco e si chiama grid.arrange su di esso, e si ripete questa fino alla fine dei tuoi trame ...

library(gridExtra) 
library(ggplot2) 
pdf('test.pdf', width=21, height=27) 
i = 1 
plot = list() 
for (n in unique(tab$Station)){ 
    ### process data for plotting here #### 
    plot[[i]] = ggplot(tab[tab$Station==n], aes(x=Date)) +... 
    if (i %% 8 == 0) { ## print 8 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) { 
    print (do.call(grid.arrange, plot)) 
} 
dev.off() 

Answer 2

Purtroppo, mfrow non funziona con ggplot2. È necessario utilizzare altri metodi come this one o this one o utilizzare la funzione nativa plot.

Forse è possibile utilizzare per ottenere le sfaccettature 8 lotti in una sola pagina, poi il secondo link per metterla in più documenti ...

Answer 3

sfaccettatura potrebbe essere la strada da percorrere. Decidi quanti mini tramezzi sfaccettati vuoi per pagina, quindi passa attraverso il numero di volte richiesto, generando un png o un pdf mentre vai. Quindi se hai 200 elementi di dati e vuoi 50 per pagina, in facet di 5 across e 10 down, fai un ciclo di 200/50 = 4 iterazioni. Grezzo, ma dovrebbe funzionare

library(ggplot2) 

ii <- 7 
nn <- 49 

mydf <- data.frame(date = rep(seq(as.Date('2013-03-01'), 
         by = 'day', length.out = ii), nn), 
        value = rep(runif(nn, 100, 200))) 

mydf$facet.variable <- rep(1:nn, each = ii) 

p <- ggplot(mydf, aes(x = date, y = value)) + 
    geom_line() + 
    facet_wrap(~ facet.variable, ncol = ii) 

print(p) 

Answer 4

library(plyr) 
library(gridExtra) 

p = ggplot(tab, aes(x=Date)) + 
     geom_line(aes(y=Tmin), col="blue", size=0.1) 

plots = dlply(tab , "Station", `%+%`, e1 = p) 
ml = do.call(marrangeGrob, c(plots, list(nrow=8, ncol=1))) 
ggsave("multipage.pdf", ml) 

non testati.