r - 添加 Heatmaply 热图列的平均值作为其附近的注释

Question

如何将 Heatmaply 热图的列的平均值添加为它附近的注释？

目前，作为一种不理想的方法，我运行它并得到下图：

x<- mtcars
mmeans <-round(rowMeans(mtcars), digits = 2 )
rownames(x) <- paste0(rownames(x)," = ", mmeans)
heatmaply(x, Rowv=F, Colv=F)

然而，这并不理想。我希望将平均值作为另一个独立列添加到热图中，我也可以在其中显示值。

另外，我需要顶部的列标签，我在这里问过：

我打算在闪亮的应用程序中使用这个热图。

谢谢

Answer 1

您可以使用“cbind()”将平均值作为另一列添加到矩阵中。然后使用更新后的矩阵作为热图输入。

x <- mtcars
rownames(x) <- paste0(rownames(x),"=", mmeans)
mmeans <- round(rowMeans(mtcars), digits = 2 )
x_new <- cbind(x, mmeans) 
heatmaply(x_new, Rowv=F, Colv=F, fontsize_row=5)

希望这有助于并回答您的问题，尽管迟到了。