R 中 grid::calcStringMetric() 中的示例代码

如何解决R 中 grid::calcStringMetric() 中的示例代码

在尝试了解 R 网格包中的 calculateStringMetric 函数的工作原理时， 我对 test() 函数中 y=unit(.5,"npc") + unit(metric[2],"inches"), 的偏移量为 0.5npc 感到困惑 它似乎将所有红色矩形向上移动，但我不明白 0.5 来自哪里以及为什么我们需要使用它。

示例代码摘自 Rdocument (https://www.rdocumentation.org/packages/grid/versions/3.6.2/topics/calcStringMetric) 第 17 至 62 行。

test <- function(x) {
    grid.text(x,just="bottom")
    metric <- calcStringMetric(x)
    if (is.character(x)) {
        grid.rect(width=unit(metric$width,height=unit(metric$ascent,just="bottom",gp=gpar(col=rgb(1,.5)))
        grid.rect(width=unit(metric$width,height=unit(metric$descent,just="top",.5)))
    } else {
        grid.rect(width=unit(metric$width,y=unit(.5,.5)))
    }
}

tests <- list("t","test","testy","test\ntwo",expression(x),expression(y),expression(x + y),expression(a + b),expression(atop(x + y,2)))

grid.newpage()
nrowcol <- n2mfrow(length(tests))
pushViewport(viewport(layout=grid.layout(nrowcol[1],nrowcol[2]),gp=gpar(cex=5,lwd=.5)))
for (i in 1:length(tests)) {
    col <- (i - 1) %% nrowcol[2] + 1
    row <- (i - 1) %/% nrowcol[2] + 1
    pushViewport(viewport(layout.pos.row=row,layout.pos.col=col))
    test(tests[[i]])
    popViewport()
}