Come modificare la dimensione del testo di correlazione in ggpairs()

Question

Sto usando ggpairs() nel pacchetto GGally. La trama delle coppie è di quattro variabili continue, e ho dato un'altra colonna, un fattore con 2 livelli, ad un argomento colour che ha funzionato molto bene, entrambi colorando i punti come mi aspettavo e (bonus!) Nella parte superiore diagonale del trama che riporta le correlazioni per quel livello di fattore. Il mio unico problema è che il testo che riporta le correlazioni è troppo piccolo.

È possibile aumentare la dimensione del testo che riporta le correlazioni in un grafico ggpairs()?

Ho provato a dare un argomento cex, sembra non avere alcun effetto. Sto già usando size per un'altra variabile; non influisce sul testo.

Per un esempio specifico:

require(GGally) 
mtcars$cyl <- as.factor(mtcars$cyl) 
ggpairs(mtcars, columns = c(1, 5), colour = "cyl") 

Answer 1

È inoltre possibile specificare la dimensione del testo di correlazione nelle params. Per esempio, è possibile specificare una dimensione del carattere di correlazione 12 come segue:

require(GGally) 
mtcars$cyl <- as.factor(mtcars$cyl) 
ggpairs(mtcars, columns = c(1, 5), colour = "cyl", params=list(corSize=12)) 

Answer 2

Non so se questa è la soluzione più elegante, ma in ggpairs è possibile modificare singoli appezzamenti nella tua matrice trama. Quindi, se si crea un tracciato di correlazione in questo modo

my_cor <- ggally_cor(mtcars, aes_string(x = "mpg", y = "drat", colour = "cyl") 
      , corSize = 10) 

è possibile inserire questa trama nella vostra vecchia matrice

old_matrix <- ggpairs(mtcars, columns = c(1, 5), colour = "cyl") 
new_matrix <- putPlot(old_matrix, my_cor, 1, 2) 

Answer 3

Per chiunque trovare la loro strada a questo thread nel 2017 e oltre, questo è cambiato un po '. risposta

Sede di schloerke qui: https://github.com/ggobi/ggally/issues/31

es. per modificare la dimensione del carattere utilizzato nelle correlazioni, utilizzare il parametro superiore alla funzione ggpairs in questo modo:

ggpairs(mtcars, columns = c(1, 5), colour = "cyl", 
    upper = list(continuous = wrap("cor", size = 9)))