添加 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)

希望這有助於並回答您的問題，盡管為時已晚。