如何解决将Heatmaply热图的列的平均值添加为靠近它的注释
如何将Heatmaply热图的列的平均值添加为它附近的注释?
目前,作为一种不理想的方法,我运行了此操作并得到下图:
x<- mtcars
mmeans <-round(rowMeans(mtcars),digits = 2 )
rownames(x) <- paste0(rownames(x)," = ",mmeans)
heatmaply(x,Rowv=F,Colv=F)
但是,这并不理想。我希望将平均值作为另一个独立列添加到热图中,在其中我也可以显示这些值。
我计划在一个闪亮的应用程序中使用此热图。
谢谢
解决方法
您可以使用“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)
希望这对您有所帮助并回答您的问题,尽管为时已晚。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。