r - 设置多边形的背景颜色

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填充多边形，但如果使用angleand ，也可以将其用于线条着色颜色density。

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

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