如何在R中旋转`grid``grob`或`grobTree`对象？

问题描述

我们可以在旋转后得到 grob 或 grobTree 作为输出吗？如何在 R 中旋转 grid grob 或 grobTree 对象而不影响视口？

library(grid)
grid.rect(gp=gpar(col="gray"))
angle <- seq(0,2*pi,length=10)[-10]
g1 <- polygonGrob(x=0.25 + 0.15*cos(angle),y=0.5 + 0.3*sin(angle),gp=gpar(fill="gray"))
g2 <- polygonGrob(x=0.75 + 0.15*cos(angle),id=rep(1:3,each=3),gp=gpar(fill="gray"))
out <- grobTree(g1,g2)
grid.draw(out)

grid.newpage()
grid.rect(gp=gpar(col="gray"))
r1 <- rectGrob(height=.2,gp=gpar(fill="black"),name="r1")
r2 <- rectGrob(width=.2,gp=gpar(fill="grey"),name="r2")
r3 <- rectGrob(width=.4,height=.4,gp=gpar(fill="white"),name="r3")
gt <- grobTree(children=gList(r1,r2,r3),name="gt")
grid.draw(gt)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）