调整文本框格罗布

Question

library(grid)
library(Gmisc)
grid.newpage()
gp <- gpar(fill = "lightgrey")
(total <- boxGrob("some text doesnt fit", 
                      x=0.55, y=.6, box_gp = gp,just = "center",width = 0.1,height = 0.1))

使用上述代码，我想减小文本大小以适合框内的大小。 cex或自动调整大小的电话有一种简单的方法吗？ 任何帮助将不胜感激。

Answer 1

没有自动调整大小的电话。您需要指定的是txt_gp参数，例如：

grid.newpage()
gp <- gpar(fill = "lightgrey")
(total <- boxGrob("some text doesnt fit", 
                  x=0.55, y=.6, 
                  box_gp = gp,
                  just = "center",
                  width = 0.1,
                  height = 0.1,
                  txt_gp = gpar(fontsize = 5)))

您可以尝试计算宽度并相应地进行调整。当前宽度是使用以下方法计算的：

txt_padding <- unit(4, "mm")
width <- grobWidth(txt) + txt_padding + txt_padding

只需尝试不同的尺寸，看看它是否在您的限制范围内。 grobWidth是grid软件包的一部分。