设置多边形的背景颜色

Question

有没有办法设置多边形的背景颜色？我想要得到这样的情节...

set.seed(1)
n <- 100
xx <- c(0:n, n:0)
yy <- c(c(0,cumsum(stats::rnorm(n))), rev(c(0,cumsum(stats::rnorm(n)))))

plot   (xx, yy, type="n", xlab="Time", ylab="Distance")
polygon(xx, yy, angle=45, density=10)
polygon(xx, yy+5, col="white")
polygon(xx, yy+5, angle=45, density=10, col="red")

但理想情况下没有倒数第二行来设置背景（我正在我正在编写的函数中绘制多个多边形）。我可以在最后一行使用一个论证来否定整个倒数第二行吗？欢呼声。

Answer 1

我的回答是“不” - help(polygon)为您提供填充多边形的col，但如果使用angle和density，则会将其用于线条着色颜色。< / p>

这是当时笔式绘图仪只能拿起一支笔的旧时代的遗物......

做两次应该不是问题。编写自己的函数，该函数采用多边形和两个颜色参数，并调用polygon两次。