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....