如何翻转 pheatmap 中的层次聚类节点

Question

我有以下代码：

pheatmap::pheatmap(mtcars, clustering_method = "ward.D2")

它产生如下所示的 plot。

我想做的是做这些：

1. 将mpg和qsec节点移动到wt之后。
2. 将disp和hp节点移到最左边。

这是一个有效的事情吗？ 如果是这样，我该如何实现？

更新

遵循以下 Marco Sandri 的建议，并稍作调整。 我想出了完成这项工作的代码：

phtmap <- pheatmap::pheatmap(mtcars)
col_dend <- phtmap[[2]]
col_dend <- dendextend::rotate(col_dend, order = c("hp", "disp",   "vs", "am", "cyl", "drat", "gear", "carb","wt", "mpg","qsec") )
pheatmap(mtcars, cluster_cols=as.hclust(col_dend))

Answer 1

也许这就是你要找的。

library(pheatmap)
library(seriation)
library(dendextend)

phtmap <- pheatmap(mtcars)
col_dend <- phtmap[[2]]
col_dend <- rotate(col_dend, order = rev(names(mtcars)[get_order(col_dend)]))

# The pheatmap with the same clustering of heatmaply
pheatmap(mtcars, cluster_cols=as.hclust(col_dend))