search for: gtheta

Displaying 1 result from an estimated 1 matches for "gtheta".

Did you mean: theta
2011 Feb 15
1
gList and gTree methods of grid::grobX
...height=unit(2,"cm")), circleGrob(r=0.3)), vp=viewport(0.5,0.5)) ## gList g1 <- gList(rectGrob(0.5,0.5, width=unit(0.8,"npc"), height=unit(2,"cm")), circleGrob(r=0.3)) ## loop over angles to map the boundary gtheta <- function(g, theta){ sapply(theta, function(.t){ gx <- convertX(grobX(g, .t), "npc") gy <- convertY(grobY(g, .t), "npc") c(gx,gy) }) } angles <- seq(0,360,by=30) p1 <- gtheta(g1, angles) grid.newpage() grid.draw(g1) grid....