难以定位heatmap.2组件

Question

我一直在努力定位我的heatmap.2输出的组件。

I found this old answer解释了@IanSudbery的元素定位是如何工作的，这看起来非常清楚，我认为它给了我理解我需要的东西，但我仍然没有抓住一些东西。

据我所知，这些元素基本上都放在了一个窗口的格子中，但它们的表现并不像我理解的那样。

这是我的代码和当前输出（在最底部是对图元素进行排序的感兴趣的点）：

for(i in 1:length(ConditionsAbbr)) {

# creates its own colour palette 
    my_palette <- colorRampPalette(c("snow", "yellow", "darkorange", "red"))(n = 399)

  # (optional) defines the colour breaks manually for a "skewed" colour transition
    col_breaks = c(seq(0,0.09,length=100),    #white 'snow'
                 seq(0.1,0.19,length=100), # for yellow
                 seq(0.2,0.29,length=100), # for orange 'darkorange'
                 seq(0.3,1,length=100))    # for red

  # creates a 5 x 5 inch image
  png(paste(SourceDir, "Heatmap_", ConditionsAbbr[i], "XYZ.png"),    # create PNG for the heat map        
      width = 5*600,        # 5 x 600 pixels
      height = 5*600,
      res = 300,            # 300 pixels per inch
      pointsize = 8)        # smaller font size

  heatmap.2(ConditionsMtx[[ConditionsAbbr[i]]],
            cellnote = ConditionsMtx[[ConditionsAbbr[i]]],  # same data set for cell labels
            main =  paste(ConditionsAbbr[i], "XYZ"), # heat map title
            notecol="black",      # change font color of cell labels to black
            density.info="none",  # turns off density plot inside color legend
            trace="none",         # turns off trace lines inside the heat map
            margins =c(12,9),     # widens margins around plot
            col=my_palette,       # use on color palette defined earlier
            breaks=col_breaks,    # enable color transition at specified limits
            dendrogram="none",     # No dendogram
            srtCol = 0 ,        #correct angle of label numbers
            asp = 1 ,         #this overrides layout methinks and for some reason makes it square
            adjCol = c(NA, -35) ,
            adjRow = c(53, NA) ,
            keysize =  1.2 ,
            Colv = FALSE ,      #turn off column clustering
            Rowv =  FALSE ,    # turn off row clustering
            key.xlab = paste("Correlation") ,
            lmat = rbind( c(0, 3), c(2,1), c(0,4) ), 
            lhei = c(0.9, 4, 0.5) )

  dev.off()               # close the PNG device


}

这给出了：

正如你所看到的，关键是矩阵的右边，矩阵，上面的标题和下面的键之间有大量的空白区域，甚至标题和矩阵都不在PNG的中心？

我觉得“我只会创建一个易于理解和编辑的3x3”，例如

        |        |
        |        |  (3)
        |        |      
--------------------------
        |  (1)   |
   (2)  | Matrix |  
        |        | 
--------------------------   
        |  (4)   |
        |  Key   |
        |        |

然后我可以摆脱白色空间，所以它更像是这样。

        |        |(3)      
    ------------------
        |  (1)   |
     (2)| Matrix |  
        |        | 
    ------------------   
        |(4) Key |

我这样做使用：

lmat = rbind( c(0, 0, 3), c(2, 1, 0), c(0, 4, 0) ), 
            lhei = c(0.9, 4, 0.5) ,
            lwid = c(1, 4, 1))

这就是它的样子：

最好看到我的矩阵在中心，我的键仍然与我的矩阵右边对齐，我的标题是走丝绸之路东？更不用说所有多余的空白区域？

如何使这些对齐和一起移动，使图形组件紧密贴合在一起？

编辑：减少我的利润有助于减少空白，但它仍然过度。

Answer 1

另一答案

难以定位heatmap.2组件

通过`facet_wrap`在网格布局中使用多个热图的示例

最后一次更新

样本数据

难以定位heatmap.2组件

通过facet_wrap在网格布局中使用多个热图的示例

最后一次更新

样本数据

通过`facet_wrap`在网格布局中使用多个热图的示例