Làm thế nào để áp dụng cross-nở đến một đa giác bằng cách sử dụng hệ thống đồ họa lưới?

Question

Một số chức năng trong hệ thống đồ họa cơ sở R, trong đó có rect() và polygon(), hỗ trợ cross-nở qua họ angle= và density= đối số:

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) 

Làm thế nào tôi có thể áp dụng tương tự chéo nở để một đa giác được vẽ bởi lưới hệ thống đồ họa grid.polygon() chức năng:

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

Tôi đã nhìn vào tài liệu cho ?grid.polygon và ?gpar, và đã lướt qua cuốn sách Paul Murrel về đồ họa R, và cho đến nay đưa ra sản phẩm nào. Tôi có thiếu một cái gì đó hiển nhiên? Nếu không, có một số hack đơn giản mà sẽ làm cho điều này có thể?

Answer 1

Dưới đây là một ví dụ với gridSVG chuyển thể từ 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 phức tạp hơn được phép là tốt, kể từ svg sẽ chăm sóc của clipping.