r - 如何使用网格图形系统将剖面线应用于多边形？

Question

R的基本图形系统中的几个功能（包括rect()和polygon()）通过它们的angle=和density=参数支持交叉阴影：

x = c(0, 0.5, 1, 0.5)
y = c(0.5, 1, 0.5, 0)
par(mar=c(0,0,0,0))
plot.new()
polygon(x, y, angle=45, density=10)

如何对网格图形系统的grid.polygon()函数绘制的多边形应用类似的阴影线：

library(grid)
grid.newpage()
grid.polygon(x,y)

我查看了?grid.polygon和?gpar的文档，并浏览了Paul Murrel关于R图形的书，到目前为止还没有内容。我缺少明显的东西吗？如果没有，是否有一些简单的技巧可以使之成为可能？

Answer 1

这是来自Paul Murrell's presentation的gridSVG的示例

library(gridSVG)
library(grid)
x = c(0, 0.5, 1, 0.5)
y = c(0.5, 1, 0.5, 0)
grid.newpage()
grid.polygon(x,y, name="goodshape")

pat <- pattern(linesGrob(gp=gpar(col="black",lwd=3)),
  width = unit(5, "mm"), height = unit(5, "mm"),
  dev.width = 1, dev.height = 1)

# Registering pattern
registerPatternFill("pat", pat)
# Applying pattern fill
grid.patternFill("goodshape", label = "pat")

grid.export("test-pattern.svg")

也可以使用更复杂的杂项，因为svg负责剪辑。