Aggiungi facilmente un facet "(tutto)" a facet_wrap in ggplot2?

Question

Ho dati che assomiglia a questo esempio nel facet_wrap documentation:

http://docs.ggplot2.org/current/facet_wrap-29.png

vorrei riempire l'ultima sfaccettatura con la visione d'insieme, utilizzando tutti i dati.

C'è un modo semplice per aggiungere un facet "totale" con facet_wrap? È facile aggiungere margini a facet_grid, ma questa opzione non esiste in facet_wrap.

Nota: usando facet_grid non è un'opzione se si desidera un quadrante come nella trama di cui sopra, che richiede i ncol o nrow argomenti da facet_wrap.

Answer 1

library(ggplot2) 

p <- qplot(displ, hwy, data = transform(mpg, cyl = as.character(cyl))) 
cyl6 <- subset(mpg, cyl == 6) 
p + geom_point(data = transform(cyl6, cyl = "7"), colour = "red") + 
    geom_point(data = transform(mpg, cyl = "all"), colour = "blue") + 
    facet_wrap(~ cyl) 

Answer 2

si può provare l'opzione "margini" in facet_wrap come seguenti:

library(ggplot2) 

p <- qplot(displ, hwy, data = transform(mpg, cyl = as.character(cyl))) 
cyl6 <- subset(mpg, cyl == 6) 
p + geom_point(data = transform(cyl6, cyl = "7"), colour = "red") + 
    facet_wrap(~ cyl, margins=TRUE) 

Answer 3

Io preferisco un approccio leggermente alternativo. In sostanza, i dati vengono duplicati prima di creare la trama, con una nuova serie di dati aggiunti per tutti i dati. Ho scritto la seguente funzione CreateAllFacet per semplificare il processo. Restituisce un nuovo dataframe con i dati duplicati e una colonna aggiuntiva facet.

library(ggplot2) 

#' Duplicates data to create additional facet 
#' @param df a dataframe 
#' @param col the name of facet column 
#' 
CreateAllFacet <- function(df, col){ 
    df$facet <- df[[col]] 
    temp <- df 
    temp$facet <- "all" 
    merged <-rbind(temp, df) 

    # ensure the facet value is a factor 
    merged[[col]] <- as.factor(merged[[col]]) 

    return(merged) 
} 

Il vantaggio di aggiungere la nuova colonna facet per i dati originali è che permette ancora la variabile cylinder da utilizzare per colorare i punti nella trama entro l'estetica:

df <- CreateAllFacet(mpg, "cyl") 

ggplot(data=df, aes(x=displ,y=hwy)) + 
    geom_point(aes(color=cyl)) + 
    facet_wrap(~ facet) + 
    theme(legend.position = "none")