将Heatmaply热图各列的平均值添加为其附近的一个符号

Question

如何将Heatmaply热图各列的平均值添加为它附近的一个附图？

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

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

​

​

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

此外，我还需要顶部的列标签，这是我要求here提供的

我计划在一个闪亮的应用程序中使用这个热图。

谢谢

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)

希望这对你有所帮助，并回答你的问题，尽管有点晚。