我可以在 PHEATMAP 中将列名更改为顶部吗答案

【问题标题】：can i change the column names to the top in PHEATMAP我可以在 PHEATMAP 中将列名更改为顶部吗
【发布时间】：2020-08-06 19:36:03
【问题描述】：

我正在使用 PHEATMAP 生成热图 - 当前行名和列名默认为左和下 - 有人可以指出我可以将其更改为 RIGHT 和 TOP 的选项。

【问题讨论】：

使用暴露该选项的包可能比尝试使用 pheatmap 实现这一点更容易 - 例如为此使用 ComplexHeatmap (jokergoo.github.io/ComplexHeatmap-reference/book/…)
我同意 - 我知道复杂的热图很容易实现这一点，问题是我正在使用 powerbi 加载此热图以读入我的 powerapp。目前 powerbi 不支持复杂的热图。

标签： r pheatmap

【解决方案1】：

您可以按如下方式颠倒行和列的顺序：

library(pheatmap)
library(gridExtra)
# Heatmap of the original data set
p1 <- pheatmap(mtcars, cluster_cols=F, cluster_rows=F)

# Heatmap of the data set with flipped rows and columns
mtcars2 <- mtcars[nrow(mtcars):1, ncol(mtcars):1]
p2 <- pheatmap(mtcars2, cluster_cols=F, cluster_rows=F)

grid.arrange(grobs=list(p1$gtable,p2$gtable), nrow=1)

【讨论】：

谢谢 Marco - 这也会很有帮助。我正在考虑将列标签的位置移动到图表的顶部，将行标签的位置移动到图表的左侧。
@Neo 你找到解决方案了吗？我也有同样的问题

【解决方案2】：

不幸的是，您必须使用 ComplexHeatmap - 我知道 OP 不能使用 CH，但其他人的后代：

library(pheatmap)
pheatmap(plot_mat, cluster_rows = T, cluster_cols = F,
         display_numbers = T, cutree_rows = 3, 
         color = hcl.colors(50, "sunsetdark", rev=F),
         border_color = "black", number_color = "black",
         fontsize_number = 9, angle_col = 0)

library(ComplexHeatmap)
ComplexHeatmap::pheatmap(plot_mat, cluster_rows = T, cluster_cols = F,
                         display_numbers = T, cutree_rows = 3, 
                         color = hcl.colors(50, "sunsetdark", rev=F), 
                         border_color = "black", number_color = "black",
                         fontsize_number = 9, column_names_side = c("top"),
                         angle_col = c("0"))

【讨论】：