r - 在 R 中确定所需的字体/文本大小

Question

有谁知道如何确定在 R 中的给定位置适合文本项所需的字体大小？

现在我可以更改字体大小并重复调用 strwidth/stheight 直到文本大小适合，但这似乎非常低效。

我正在尝试做的具体示例：我调用 draw.polygon 并在本机单位中指定了特定的高度和宽度，然后我想在此框中添加文本。我怎样才能做到这一点？

Answer 1

这是一个例子，

require(grid)
grid.newpage()
g1 <- grid.rect(width=unit(2, "cm"), height=unit(1.5, "line"))
g2 <- textGrob("this has to fit")
w1 <- convertWidth(grobWidth(g1), "mm", valueOnly=TRUE)
w2 <- convertWidth(grobWidth(g2), "mm", valueOnly=TRUE)
ratio <- w1 / w2
grid.draw(editGrob(g2, gp=gpar(cex=ratio)))