Question

我想通过热图2制造一个热图,该图有色钥匙,其核心为0(即白色-&;0,红色->大于0,蓝->小于0),同时保持“水面”,因为我有兴趣绘制实际价值热图。然而,我的所有热图在使用以下线时都不以零为重:

library(gplots)
outputHeatmap <- heatmap.2(heatmapInputActual, dendrogram="none", Rowv=FALSE,
    Colv=FALSE, col= bluered(256), scale="none", key=TRUE, density.info="none", 
    trace="none", cexRow=0.125, cexCol=0.125, symm=FALSE, symkey=TRUE)

我认为,使用指挥钥匙=TRUE会奏效,但不会。我正在尝试的变量是数字价值的(n x 3)矩阵。上文描述的热图2()的指挥有问题:

8.408458  5.661144   0.00000000
4.620846  4.932283  -0.46570468
-4.638912 -3.471838  -0.12146109
-4.822829 -3.946024   0.06403327
3.948832  4.520447  -0.31945941

感谢你时间。我期待着你的答复。

Answer 1

解决办法似乎只是将<条码>突发事项添加到<条码>。下面是你数据中一个完全可以推广的例子:

library(gplots)
#read your example data
heatmapInputActual <- read.table(textConnection(
"8.408458 5.661144 0.00000000
4.620846 4.932283 -0.46570468
-4.638912 -3.471838 -0.12146109
-4.822829 -3.946024 0.06403327
3.948832 4.520447 -0.31945941
"),as.is=TRUE)
#convert sample data to matrix
heatmapInputActual <- as.matrix(heatmapInputActual)
#just add symbreaks to the end of your code
heatmap.2(heatmapInputActual, dendrogram="none", Rowv=FALSE, Colv=FALSE, 
          col = bluered(256), scale="none", key=TRUE, density.info="none", 
          trace="none", cexRow=0.125, cexCol=0.125, symm=F,symkey=T,symbreaks=T)

“entergraph

友情链接