Come applicare il tratteggio incrociato a un poligono usando il sistema grafico a griglia?

Question

Diverse funzioni nel sistema grafico di base di R, tra cui rect() e polygon(), supporto cross-cova attraverso i loro angle= e density= argomenti:

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) 

Come potrebbero fare domanda simile tratteggio ad un poligono disegnato dal grid.polygon() la funzione del sistema grafico griglia:

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

Ho guardato nella documentazione per ?grid.polygon e ?gpar, ed ho scremato attraverso il libro di Paul Murrel sulla grafica R, e sono finora venuto a mani vuote. Mi manca qualcosa di ovvio? Se no, c'è qualche semplice hack che renderà questo possibile?

Answer 1

Ecco un esempio con gridSVG adattato da 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") 

grobs più complessi sono consentiti pure, poiché svg prende cura del clipping.