layui text 值变化判断_ggplot2 绘制带星号和 Pvalue 值的相关系数热图

ggplot2 绘制相关系数热图

加显著性 * 和 Pvaue 值

• 参考：哪里不会搜哪里，哈哈哈
• 其实归根到底就是全文要敲用判断和 paste() 或者 paste0()
• tidyverse::case_when()
• factor(): 重定义因子顺序
• takecolor 下载链接
• 也可以看我简书 可能是 R 语言最全调色板：Paletteer 包 和 自己慢慢收集 的详细关于配色的操作

library(tidyverse)
library(reshape2)
a <- matrix(rnorm(90), 9, 10)
colnames(a) <- letters[1:10]
rownames(a) <- letters[1:9]
data <- melt(a)
data <- data %>%
  mutate(text = case_when(  # 一定要 get 到 case_when() 函数奥秘
    value > 0 ~ paste(round(value, 2), "n*"), # round() 只保留两位小数
    value <= 0 ~ paste(round(value, 2), "n**")))
data$