将Heatmaply热图的列的平均值添加为靠近它的注释

问题描述

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

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

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

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

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

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

谢谢

解决方法

您可以使用“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)

希望这对您有所帮助并回答您的问题，尽管为时已晚。