Создать результат корреляции из Tidyverse

Question

У меня есть некоторая корреляция с tidyverse

data %>% 
  select_if(is.numeric) %>% 
  cor

output:

              age height      income
age     1.00000000     NA -0.00100384
height          NA      1          NA
income -0.00100384     NA  1.00000000

Я хочу визуализировать это коренное предложение?

Я пытаюсь сcorrplot но это не сработало.

Answer 1

Это работает:

mtcars %>% 
  select_if(is.numeric) %>% 
  cor(., use="complete.obs") %>% # we make the correlations, only on complete.obs
  round(., 3) %>%  # this just rounds up the numbers, we can remove it
  corrplot::corrplot(., method="number") # call to corrplot function

Примечание , что если корреляция мала ,цвет шрифта будет почти белый .Поиграйте с параметрами цвета, чтобы настроить его.