Wie man Cross-Hatching auf ein Polygon mit dem Grid-Grafiksystem anwenden?

Question

mehrere Funktionen in der Basis des R grafischen Systems, einschließlich rect() und polygon(), Unterstützung Schraffur über ihre angle= und density= Argumente:

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) 

Wie könnte ich gelten ähnliche schraffiert dargestellt in einem Polygon durch das grid grafische grid.polygon() Funktion des Systems:

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

Ich habe für ?grid.polygon und ?gpar in der Dokumentation sah, und habe durch Paul Murrel Buch über R Grafiken und haben so weit gehen leer abgeschöpft. Fehle ich etwas Offensichtliches? Wenn nicht, gibt es einen einfachen Hack, der das ermöglicht?

Answer 1

Hier ist ein Beispiel mit gridSVG angepasst von Paul Murrell's presentation

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") 

komplexere Grobs ist auch erlaubt, da svg Pflege des Clipping nimmt.