热图如何去掉聚类树的同时保留聚类的顺序？

豆豆写于2020.5.15
相信你看到这个问题，可能感觉很简单，不就一个参数的问题吗？
下面来看探索（全程是基于pheatmap来做的）

首先构建一个测试数据

library(pheatmap)
test = matrix(rnorm(200), 20, 10)
test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3
test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2
test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4
colnames(test) = paste("Test", 1:10, sep = "")
rownames(test) = paste("Gene", 1:20, sep = "")
# 20行（基因），10列（样本）的一个表达矩阵
> test[1:4,1:4]
          Test1        Test2    Test3      Test4
Gene1 0.6807237 -0.860925078 1.855526 -0.4521751
Gene2 3.9723180 -0.002143337 3.571518 -0.9309492
Gene3 2.8913975 -0.055238202 3.505305 -0.2134826
Gene4 4.6034459 -0.420745550 4.334734 -0.9265620

然后最简单的热图是

p1=pheatmap(test)
p1

现在看到，这里的样本、基因都进行了聚类，将表达相似的排在了靠近的位置，可以让整个图更美观

但有时候，受限于排版的版面大小以及不关心基因之间的聚类关系，不想要聚类树，但是还是想要上面这种已经排好的位置关系

如果简单调整参数

如果只是简单设置，那么最后的样子也会改变

pheatmap(test,cluster_rows = F,cluster_cols = F)

达不到第一张图的效果，基因名和样本名的位置对不起来

情急之下，可能会手动调整基因名和样本名的位置。但毕竟不是有效之举，下次再遇到依旧是个难题…

其实一个小技巧就能拯救

我们为了后面方便保存，经常会把图片保存为一个变量，然后直接运行这个变量就会打印图片；保存这个变量就会另存为不同类型的图片

但是，保存的这个变量不单单是个字母（比如上面的p1），它还暗藏信息

p1默认是对行和列都进行聚类的，因此我们可以从p1中提取到聚类后的行、列结果，而不用手动去挑【重点就是下面两行代码】

gn=rownames(test)[p1$tree_row[["order"]]]
sn=colnames(test)[p1$tree_col[["order"]]]
> gn
 [1] "Gene16" "Gene19" "Gene15" "Gene18" "Gene17" "Gene20" "Gene5"  "Gene2"  "Gene4"  "Gene7"  "Gene10" "Gene8" 
[13] "Gene3"  "Gene9"  "Gene1"  "Gene6"  "Gene13" "Gene14" "Gene11" "Gene12"
> sn
 [1] "Test6"  "Test10" "Test2"  "Test4"  "Test8"  "Test1"  "Test3"  "Test5"  "Test7"  "Test9" 

稍微看一下，是不是和第一张图的名称是对应的呢

然后如果这时我们再画图呢？

# 按照挑出来的基因和样本号进行重排序
new_test=test[gn,sn]
pheatmap(new_test,cluster_rows = F,cluster_cols = F)