Установите альфа и удалите черный контур плотностных графиков в ggpairs

Рассмотрим пример:

data(tips, package = "reshape")
library(GGally)
pm <- ggpairs(tips, mapping = aes(color = sex), columns = c("total_bill", "time", "tip"))
pm

enter image description here

как сделать графики плотности более прозрачными и удалить черные линии?

на GGally пакеты, похоже, сильно изменились в последнее время, и я не могу найти рабочее решение

обновление

Я нашел как изменить Альфа с пользовательской функцией:

my_dens <- function(data, mapping, ..., low = "#132B43", high = "#56B1F7") {
  ggplot(data = data, mapping=mapping) +
    geom_density(..., alpha=0.7) 
}

pm <- ggpairs(tips, mapping = aes(color = sex), columns = c("total_bill", "time", "tip"),
              diag=list(continuous=my_dens))
pm

но черная полоса все равно остается.

9
ggally ggplot2 r

2 ответов

благодаря @Henrik это решение, использующее пользовательскую функцию

my_dens <- function(data, mapping, ...) {
  ggplot(data = data, mapping=mapping) +
    geom_density(..., alpha = 0.7, color = NA) 
}

pm <- ggpairs(tips, mapping = aes(color = sex), columns = c("total_bill", "time", "tip"),
              diag = list(continuous = my_dens))
pm

enter image description here

примеры того, как настроить ggpairs графики можно найти в виньетка. См. "разделы матрицы "и"подстановка матрицы графика".

11

попробуйте это:

pm <- ggpairs(tips, mapping = aes(color = sex, alpha = 0.7), columns = c("total_bill", "time", "tip"))
1