颜色的完美相关瓷砖与GGPLOT

Question

如果我理解正确，我们可以做这样的事情：

我们创建一个新的列

fill_value

Answer 1

NA

的完美相关性； 然后在

NA

（即，其中

fill_value

= 1）中的任何

value

彩色

grey50

  
library(dplyr)
library(ggplot2)
  
cor_melt %>%
  mutate(fill_value = ifelse(value == 1, NA, value)) |> 
  ggplot(aes(x = Var1, y = Var2, fill = fill_value)) +
    geom_tile() +
    scale_fill_gradient2(
      low = "dodgerblue3", mid = "white", high = "firebrick3", midpoint = 0, na.value = "grey50") +
    theme_minimal() +
    labs(x = NULL, y = NULL) +
    theme(
      axis.text.x = element_text(angle = 45, hjust = 1.1),
      panel.grid  = element_blank()
    )