Настраиваемый цвет графика корреляции

Question

Есть ли способ настроить график корреляции в R, например, на графике ниже

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

Я использовал приведенный ниже код для корреляционного графика

library(corrplot)
data_matrix<-as.matrix(data)
corr_mat=cor(data_matrix,method="pearson")
corrplot(corr_mat,method = "number")

Answer 1

Лучше ggplot. Настроить проще.

Отрегулируйте размер текста с помощью дополнительного аргумента size внутри geom_text Если вам нужно.

# given a correlation matrix
corr_matrix <- cor(mtcars)

library(dplyr)
library(tidyr)
library(ggplot2)

corr_matrix %>% 
  as_tibble(rownames = "var1") %>% 
  gather(var2, value, -var1) %>% 
  
  ggplot(aes(x = var1, y = var2, fill = value)) +
  geom_tile() +
  geom_text(aes(label = round(value, digits = 2))) +
  labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
  coord_fixed() +
  theme_minimal() +
  scale_fill_gradientn(
        limits = c(-1,1),

        # here choose the colours you want
        colours = c("blue", "green", "red"), 

        # here choose the intervals you want (must be inside rescale!)
        values = scales::rescale(c(-1, 0.5, 0.7, 1)))

Просто с числами [лично я бы выбрал первый]

corr_matrix %>% 
  as_tibble(rownames = "var1") %>% 
  gather(var2, value, -var1) %>% 
  
  ggplot(aes(x = var1, y = var2, colour = value)) +
  geom_tile(colour = "gray20", fill = "white") +
  geom_text(aes(label = round(value, digits = 2))) +
  labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
  coord_fixed() +
  theme_minimal() +
  scale_colour_gradientn(colours = c("blue", "green", "red"),
                       values = scales::rescale(c(-1, 0.5, 0.7, 1)),
                       limits = c(-1,1))

---

РЕДАКТИРОВАТЬ

Я добавил это, чтобы решить проблему, связанную с сортировкой этикеток.

Прежде всего, отредактирую mtcars чтобы он выглядел как ваши данные.

colnames(mtcars) <- paste0("Month", 1:11)
mtcars$Month12 <- rnorm(32)

Хорошо, теперь приступим к графику. Нам просто нужно внести небольшое изменение: мы делаем имена переменных упорядоченными факторами.

corr_matrix <- cor(mtcars)

library(dplyr)
library(tidyr)
library(ggplot2)

corr_matrix %>% 
    as_tibble(rownames = "var1") %>% 
    gather(var2, value, -var1) %>% 
    
    # here is the additional line you need!
    mutate(across(c(var1, var2), factor, levels = paste0("Month", 1:12), ordered = TRUE)) %>% 
    
    ggplot(aes(x = var1, y = var2, fill = value)) +
    geom_tile() +
    geom_text(aes(label = round(value, digits = 2))) +
    labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
    coord_fixed() +
    theme_minimal() +
    scale_fill_gradientn(
        limits = c(-1,1),
        
        # here choose the colours you want
        colours = c("blue", "green", "red"), 
        
        # here choose the intervals you want (must be inside rescale!)
        values = scales::rescale(c(-1, 0.5, 0.7, 1)))

Работает с dplyr версия>= 1.0.0.

Если у вас его нет, используйте вместо этого:

  mutate_at(c("var1", "var2"), factor, levels = paste0("Month", 1:12), ordered = TRUE) %>%