Edytuj poszczególne ggplots w GGally :: ggpairs: Jak mam nie wypełnić wykres gęstości w ggpairs?

Question

Z

library(GGally) 

data(diamonds, package="ggplot2") 
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1],200),] 

# Custom Example 
ggpairs(
diamonds.samp[,1:5], 
mapping = ggplot2::aes(color = cut), 
upper = list(continuous = wrap("density", alpha = 0.5), combo = "box"), 
lower = list(continuous = wrap("points", alpha = 0.3), combo = wrap("dot", alpha = 0.4)), 
diag = list(continuous = wrap("densityDiag")), 
title = "Diamonds" 
) 

uzyskać

Jak zrobić wykresy gęstości ukośne aby nie zostać wypełnione, i pokazać tylko wiersze?

Rodzaj prac ... ale nie do końca.

To jest naprawdę brzydkie - pod względem kodu - ponieważ nie ma dla mnie żadnego sensu. Ponadto nie działa tutaj, ponieważ zmienia również histogramy.

ggpairs(
    diamonds.samp[,1:5], 
    mapping = ggplot2::aes(color = cut), 
    upper = list(continuous = wrap("density", alpha = 0.5), combo = "box"), 
    lower = list(continuous = wrap("points", alpha = 0.3), combo = wrap("dot", alpha = 0.4)), 
    diag = list(continuous = wrap("densityDiag"), mapping = ggplot2::aes(fill=carat)), 
    title = "Diamonds" 
) 

Answer 1

Odpowiedź na to pytanie można znaleźć na https://cran.r-project.org/web/packages/GGally/vignettes/ggpairs.html (archived here)

ggally_mysmooth <- function(data, mapping, ...){ 
    ggplot(data = data, mapping=mapping) + 
    geom_density(mapping = aes_string(color="cut"), fill=NA) 
} 
ggpairs(
    diamonds.samp[,1:5], 
    mapping = aes(color = cut), 
    upper = list(continuous = wrap("density", alpha = 0.5), combo = "box"), 
    lower = list(continuous = wrap("points", alpha = 0.3), combo = wrap("dot", alpha = 0.4)), 
    diag = list(continuous = ggally_mysmooth), 
    title = "Diamonds" 
)