Displaying 1 result from an estimated 1 matches for "vpbrack".
Did you mean:
prack
2009 Oct 27
0
boxplot using grid
...he plot with something a little more elegant than arrows... I wrote the following function, which seems to work, but I'm not even sure how I'll get it to work with the above.
# Bracket function
Brack <- function(label, x = 0.5, y = 0.5){
require(grid)
llab <- stringWidth(label)
vpBrack <- viewport(x = x, y = y, height = unit(1, "npc"), width = llab + unit(4, "char"))
pushViewport(vpBrack)
grid.curve(unit(0, "char"),
unit(0, "npc"),
unit(4, "char"),
unit(0.5, "npc"),
inflect = TRUE, curvature =...