开篇先记录解决的色度条范围问题。
色度条范围更改
前言
当进行相关性热图可视化时,会存在正负相关性分布不平均的情况。此时我们会调节色度条范围,但这种操作无法保证0处于白色。因此,通过调节不同数值对应的颜色,使0对应白色。
操作
创建数据(随便创一个)
dat <- data.frame(matrix(rnorm(100),ncol=5))
数据显示
指定一个大致的蓝白红的颜色条
library(grDevices)
pheatmap(dat, cluster_rows = F, cluster_cols = F,
color = colorRampPalette(colors = c("blue","white","red"))(1000))
可以看到 0在红色范围内,我们打算把0表示为白色,这样观感比较好。
bk <- seq(-max(abs(dat)), max(abs(dat)), length.out = 100)
# 确保w