how can i create a tight bounding box around labels in a textGrob object?
library(grid) grid.newpage() tg <- textGrob( strrep('R',1:3), seq(0.25,0.75,0.25), rep(0.5,3), rot = 0, just = c(0.5, 0.5), gp = NULL, name = "text" ) grid.draw(tg)