Grafico combinato di ggplot2 (Non in un singolo Plot), utilizzando la funzione par() o layout()?

Question

Ho pensato di utilizzare le funzioni par() o layout() per combinare i ggplot. Sarà possibile utilizzare quelle funzioni?

Dire che voglio tracciare ggplot per scatterplot e ggplot per l'istogramma. E voglio combinare i due grafici (NON IN UN SINGOLO PLOT). È applicabile?

L'ho provato con il semplice tracciamento in R, senza utilizzare le funzioni ggplot. E funziona davvero.

Ecco un esempio da Quick-R, Link: http://www.statmethods.net/advgraphs/layout.html

# 4 figures arranged in 2 rows and 2 columns 
attach(mtcars) 
par(mfrow=c(2,2)) 
plot(wt,mpg, main="Scatterplot of wt vs. mpg") 
plot(wt,disp, main="Scatterplot of wt vs disp") 
hist(wt, main="Histogram of wt") 
boxplot(wt, main="Boxplot of wt") 

# One figure in row 1 and two figures in row 2 
attach(mtcars) 
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE)) 
hist(wt) 
hist(mpg) 
hist(disp) 

Ma quando provo ad usare ggplot, e combinare la trama, non ottengo un output.

Answer 1

library(ggplot2) 
library(grid) 


vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y) 


plot1 <- qplot(mtcars,x=wt,y=mpg,geom="point",main="Scatterplot of wt vs. mpg") 
plot2 <- qplot(mtcars,x=wt,y=disp,geom="point",main="Scatterplot of wt vs disp") 
plot3 <- qplot(wt,data=mtcars) 
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot") 
plot5 <- qplot(wt,data=mtcars) 
plot6 <- qplot(mpg,data=mtcars) 
plot7 <- qplot(disp,data=mtcars) 

# 4 figures arranged in 2 rows and 2 columns 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(2, 2))) 
print(plot1, vp = vplayout(1, 1)) 
print(plot2, vp = vplayout(1, 2)) 
print(plot3, vp = vplayout(2, 1)) 
print(plot4, vp = vplayout(2, 2)) 


# One figure in row 1 and two figures in row 2 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(2, 2))) 
print(plot5, vp = vplayout(1, 1:2)) 
print(plot6, vp = vplayout(2, 1)) 
print(plot7, vp = vplayout(2, 2)) 

Answer 2

La risposta coinvolge grid.layout opere, ho usato, e ho votato up-esso. Tuttavia, di solito trovo questa soluzione troppo noiosa e soggetta a errori, e sospetto che la maggior parte degli appassionati di ggplot2 che lo fanno regolarmente lo abbiano avvolto in una funzione. Ho trovato molte di queste funzioni di wrapping nelle ricerche precedenti, ma la mia attuale soluzione workhorse è in un grid addon package called gridExtra. Ha argomenti utili, ma l'impostazione di default righe/colonne è spesso quello che si voleva in primo luogo:

library("ggplot2") 
# Generate list of arbitrary ggplots 
plot1 <- qplot(data = mtcars, x=wt, y=mpg, geom="point",main="Scatterplot of wt vs. mpg") 
plot2 <- qplot(data = mtcars, x=wt, y=disp, geom="point",main="Scatterplot of wt vs disp") 
plot3 <- qplot(wt,data=mtcars) 
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot") 
plot5 <- qplot(wt,data=mtcars) 
plot6 <- qplot(mpg,data=mtcars) 
plot7 <- qplot(disp,data=mtcars) 
# You might have produced myPlotList using instead lapply, mc.lapply, plyr::dlply, etc 
myPlotList = list(plot1, plot2, plot3, plot4, plot5, plot6, plot7) 
library("gridExtra") 
do.call(grid.arrange, myPlotList) 

Si noti come l'attuale "combinano le mie trame in una grafica" codice era una riga (dopo aver caricato gridExtra) . Si potrebbe sostenere che mettere le trame in una lista era una linea aggiuntiva, ma in realtà avrei potuto in alternativa utilizzata

grid.arrange(plot1, plot2, plot3, plot4, plot5, plot6, plot7) 

Per un piccolo numero di ggplots questo potrebbe essere preferibile. Tuttavia, per n_plots > 4 inizierai a risentirti dovendo nominarli e digitarli tutti.

Answer 3

Un'utilità che credo meriti più attenzione per questo è ilpacchetto wq (nota la "O" maiuscola). Da allora è stato rimosso dal pacchetto wq, quindi ho inserito il codice qui sotto e l'ho rinominato lay_out in modo che corrisponda al tipico stile ggplot. È come base::layout in quanto le trame possono essere di dimensioni diverse, disposte in righe e colonne. Ogni argomento a lay_out è un elenco di 3 elementi che comprende il grafico, gli indici di riga in cui tracciarlo e gli indici di colonna in cui tracciarlo.

Ad esempio, utilizzando trame di @ Paolo McMurdie,

lay_out(list(plot1, 1, 1), 
     list(plot2, 1, 2), 
     list(plot3, 2, 1), 
     list(plot4, 2, 2), 
     list(plot5, 3, 1:2), 
     list(plot6, 4, 1:2), 
     list(plot7, 1:2, 3)) 

lay_out = function(...) {  
    x <- list(...) 
    n <- max(sapply(x, function(x) max(x[[2]]))) 
    p <- max(sapply(x, function(x) max(x[[3]]))) 
    grid::pushViewport(grid::viewport(layout = grid::grid.layout(n, p)))  

    for (i in seq_len(length(x))) { 
     print(x[[i]][[1]], vp = grid::viewport(layout.pos.row = x[[i]][[2]], 
      layout.pos.col = x[[i]][[3]])) 
    } 
} 

(codice provenienti da una versione precedente del pacchetto wq, dal commit history on the unofficial Github CRAN mirror.)