十五期热图——标记相关系数热图显著性

[249125914]

原代码
p_value <- ifelse(is.na(cortest$P),"",cortest$P)
pheatmap(cortest$r,display_numbers = matrix(ifelse(p_value < 0.05,"*",""),nrow(p_value)))
做出来的结果会导致原矩阵里面的科学记数法数字错误识别，且提前制造的空白值会被判定<0.05。
或许可以把原步骤合并以避免该问题，如下：
p_value <- cortest$P
pheatmap(cortest$r,display_numbers = matrix(ifelse(is.na(p_value),"",ifelse(p_value < 0.05,"*","")),nrow(p_value)))