獲取xaxisGrob的高度

Question

grid -package包含一個用於生成軸的特殊工具。它將軸寫入當前視口之外，因此使用grobHeight的高度因此被認爲是0mm。不幸的是我需要爲這個軸創造空間，我想知道這個物體的確切高度。下面是說明該問題的一個示例：

library(grid) 
plotColorBar <- function() { 
    grid.newpage() 
    xg <- xaxisGrob(at=c(0,.25,.5,.75, 1), 
        label= sprintf("%d %%", c(0,.25,.5,.75, 1)*100), 
        main=FALSE) 

    bar_layout <- grid.layout(nrow=3, ncol=3, 
          heights = unit.c(unit(.80, "npc"), 
              grobHeight(xg), 
              unit(.2, "npc") - grobHeight(xg)), 
          widths = unit.c(unit(.25, "npc"), 
              unit(1, "npc") - 
               unit(.5, "npc"), 
              unit(.25, "npc"))) 

    pushViewport(viewport(layout=bar_layout, name="Bar_layout")) 

    pushViewport(viewport(layout.pos.row=3, 
         layout.pos.col=2, 
         name="Color_bar")) 

    grid.draw(xg) 
    bar_clrs <- colorRampPalette(c("red", "blue"), space="Lab")(101) 
    grid.raster(t(as.raster(bar_clrs)), width=1, height=1, interpolate=FALSE) 

    popViewport() 

    pushViewport(viewport(layout.pos.row=1, 
         layout.pos.col=1:3, 
         name="Main_exc_bar")) 

    grid.rect(gp=gpar(col="black", fill="#00000022")) 
    grid.text("Coool") 
    popViewport() 
} 

png(filename="axisWihtoutHeight.png", width=250, height=250, res=96) 
plotColorBar() 
dev.off() 

提供了以下圖像：

注意，灰色區域覆蓋軸文本。當我嘗試convertY(grobHeight(xg), "mm")時，它返回0mm。

現在應用@baptiste建議修復略微提高了圖像：

heightDetails.xaxis = function(x) do.call(sum, lapply(x$children, grobHeight)) 
png(filename="axisWihtHeight.png", width=250, height=250, res=96) 
plotColorBar() 
dev.off() 

正如你可以看到由於某種原因，文本是高度的兩倍。通過下面的選項，雖然這個手動調節這也感到有點笨拙：

heightDetails.xaxis = function(x) { 
    grobHeight(x$children$ticks) + 
    grobHeight(x$children$labels) + 
    grobHeight(x$children$labels) 
} 
png(filename="axisWihtDoubleHeight.png", width=250, height=250, res=96) 
plotColorBar() 
dev.off() 

最終解決

至於建議似乎單元（1.5 * CEX，「行」）做工作很好：

heightDetails.xaxis = function(x) { 
    cex <- 1 
    if (!is.null(x$children$labels$gp$cex)) 
    cex <- x$children$labels$gp$cex 

    grobHeight(x$children$ticks) + 
    unit(1.5*cex, "line") 
} 

Answer 1

你要沿着這些線路的定義爲gTree一個heightDetails方法，一些

heightDetails.xaxis = function(x) do.call(sum, lapply(x$children, grobHeight))