уменьшение толщины линии и размера шрифта «Corr:» на графике ggpairs

Question

Я занимаюсь графикой ggpairs, но линия регрессии слишком толстая, а шрифт «Corr:» слишком большой.

data(mtcars) 
head(mtcars) 

mtcars$am <- as.factor(mtcars$am) 

g <- ggpairs( 
    data = mtcars, 
    lower = list(
    continuous = wrap("smooth", alpha = 0.3, color = "blue") 
    ) 
) 
g <- g + theme(
    axis.text = element_text(size = 6), 
    axis.title = element_text(size = 6), 
    legend.background = element_rect(fill = "white"), 
    panel.grid.major = element_line(colour = NA), 
    panel.grid.minor = element_blank(), 
    panel.background = element_rect(fill = "grey95") 
) 
print(g, bottomHeightProportion = 0.5, leftWidthProportion = .5) 

Это выход:

Я не могу найти в GGally документации, где я могу установить это.

Любые указатели?

Answer 1

Попробуйте увеличить размер шрифта:

data(mtcars) 
head(mtcars) 

mtcars$am <- as.factor(mtcars$am) 

library(ggplot2) 
library(GGally) 

lowerFn <- function(data, mapping, ...) { 
    p <- ggplot(data = data, mapping = mapping) + 
    geom_point(color = 'blue', alpha=0.3, size=4) + 
    geom_smooth(color = 'black', method='lm', size=1,...) 
    p 
} 

g <- ggpairs( 
    data = mtcars, 
    lower = list(
    continuous = wrap(lowerFn) #wrap("smooth", alpha = 0.3, color = "blue", lwd=1) 
), 
    upper = list(continuous = wrap("cor", size = 5)) 
) 
g <- g + theme(
    axis.text = element_text(size = 6), 
    axis.title = element_text(size = 6), 
    legend.background = element_rect(fill = "white"), 
    panel.grid.major = element_line(colour = NA), 
    panel.grid.minor = element_blank(), 
    panel.background = element_rect(fill = "grey95") 
) 
print(g, bottomHeightProportion = 0.5, leftWidthProportion = .5) 

Answer 2

Как насчет этого?

lowerFn <- function(data, mapping, ...) { 
    p <- ggplot(data = data, mapping = mapping) + 
    geom_point(color = 'blue', alpha=0.3, size=4) + 
    geom_smooth(color = 'black', method='lm', size=1,...) 
    p 
} 

g <- ggpairs( 
    data = mtcars, 
    lower = list(
    continuous = wrap(lowerFn) 
) 
) 
g <- g + theme(
    axis.text = element_text(size = 6), 
    axis.title = element_text(size = 6), 
    legend.background = element_rect(fill = "white"), 
    panel.grid.major = element_line(colour = NA), 
    panel.grid.minor = element_blank(), 
    panel.background = element_rect(fill = "grey95") 
) 
print(g, bottomHeightProportion = 0.5, leftWidthProportion = .5) 

Answer 3

@ Крис Сноу: использовать upper аргумент ggpairs функции wrap функция ggally_cor. size = 2 ответит на ваш вопрос, однако я также добавил color = "black" в том случае, если вы хотите также изменить цвет. Предоставлено: Change colors in ggpairs now that params is deprecated

Модифицированный MWE является:

data(mtcars) 
head(mtcars) 

mtcars$am <- as.factor(mtcars$am) 

g <- ggpairs( 
    data = mtcars, 
    lower = list(
    continuous = wrap("smooth", alpha = 0.3, color = "blue") 
    ), 
    upper = list(continuous = wrap(ggally_cor, size = 2, color = "black"))) 
g <- g + theme(
    axis.text = element_text(size = 6), 
    axis.title = element_text(size = 6), 
    legend.background = element_rect(fill = "white"), 
    panel.grid.major = element_line(colour = NA), 
    panel.grid.minor = element_blank(), 
    panel.background = element_rect(fill = "grey95") 
) 
print(g, bottomHeightProportion = 0.5, leftWidthProportion = .5)