Creare una matrice di grafici a dispersione (equivalente a coppie) in ggplot2

Question

E 'possibile tracciare una matrice di grafici a dispersione con ggplot2, utilizzando le simpatiche funzionalità di ggplot come mappare fattori aggiuntivi per il colore, la forma ecc. E l'aggiunta più agevole?

Sto pensando a qualcosa di simile alla funzione basepairs.

Answer 1

Si potrebbe desiderare di provare plotmatrix:

library(ggplot2) 
    data(mtcars) 
    plotmatrix(mtcars[,1:3]) 

a me mpg (prima colonna a mtcars) non dovrebbe essere un fattore. Non l'ho controllato, ma non c'è motivo per cui dovrebbe esserlo. Tuttavia ho un grafico a dispersione :)

---

Nota: Per riferimento futuro, la funzione plotmatrix() è stata sostituita dalla funzione ggpairs() dal pacchetto GGally come @ naught101 suggerisce in another response below a questa domanda.

Answer 2

Continuo a voler farlo, ma plotmatrix è una schifezza. Hadley recommends utilizzando il GGally package invece. Ha una funzione, ggpairs che è un grafico a coppie notevolmente migliorato (consente di utilizzare variabili non continue nei frame di dati). Si trame diverse trame in ogni quadrato, a seconda dei tipi di variabili:

library(GGally) 
ggpairs(iris, aes(colour = Species, alpha = 0.4)) 

Answer 3

Se si vuole ottenere un oggetto ggplot (non ggmatrix come nel caso di ggpairs()), la soluzione è quella di fondere il dati due volte, quindi ggplot con sfaccettatura. facet_wrap sarebbe meglio di facet_grid nel limitare l'area tracciata, dato il parametro scales = 'free' è fornito.

require(ggplot2) 
require(dplyr) 
require(tidyr) 

gatherpairs <- function(data, ..., 
         xkey = '.xkey', xvalue = '.xvalue', 
         ykey = '.ykey', yvalue = '.yvalue', 
         na.rm = FALSE, convert = FALSE, factor_key = FALSE) { 
    vars <- quos(...) 
    xkey <- enquo(xkey) 
    xvalue <- enquo(xvalue) 
    ykey <- enquo(ykey) 
    yvalue <- enquo(yvalue) 

    data %>% { 
    cbind(gather(., key = !!xkey, value = !!xvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key), 
      select(., !!!vars)) 
    } %>% gather(., key = !!ykey, value = !!yvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key) 
} 

iris %>% 
    gatherpairs(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% { 
    ggplot(., aes(x = .xvalue, y = .yvalue, color = Species)) + 
     geom_point() + 
     geom_smooth(method = 'lm') + 
     facet_wrap(.xkey ~ .ykey, ncol = length(unique(.$.ykey)), scales = 'free', labeller = label_both) + 
     scale_color_brewer(type = 'qual') 
}