小编use*_*817的帖子

我想在R中的单个绘图上绘制60,000+个不重叠的三角形（非结构化三角形网格的一部分）。当前，每个绘图需要15-20分钟，因此无法使用它制作动画。例如，

n <- 100 #Except replace this with 60,000
x <- matrix(runif(3*n), n)
y <- matrix(runif(3*n), n)
cols <- heat.colors(n)[order(x[,1])]
poly <- function(i) {polygon(x[i,], y[i,], col=cols[i])}
plot(0, xlim=c(min(x),max(x)), ylim=c(min(y),max(y)))
sapply(1:n, poly)

是否可以禁止在每个多边形之后重绘polygon（）？我猜这是最耗时的步骤，并且在手册页中没有提到。如何实现这一目标的替代建议将不胜感激。谢谢。