如何在 R 中绘制多个多边形图？

Question

我正在使用 R 绘制多边形

yy<-c(1217,2343,3255,2129)
xx<-c(61587690.5,61588253.5,61587797.5,61587234.5)
polygon(xx, yy, col="gray", border = "red")

但我想在同一张图表中添加 100000 个多边形图。如何将所有内容添加到一张图表中。

---

---

Answer 1

这是一个使用坐标列表的示例。它将所有多边形绘制在同一个图中（我把它们的可识别性问题留给你...）

#generate some data
set.seed(123)
n=10
#each 'polygon' is inside a list with xx and yy coordinates
dat <- lapply(1:n,function(x){
  res <- list(xx=c(1,2,3,2)+rnorm(4),
              yy=c(1,2,3,2)+rnorm(4))
  return(res)
})

#create empty plot
plot(0:5,0:5,type='n')
#add polygons
lapply(dat,function(x){polygon(x$xx,x$yy,col="gray",border="red")})

Answer 2

对于 2 个多边形：

yy<-c(1217,2343,3255,2129)
xx<-c(61587690.5,61588253.5,61587797.5,61587234.5)
plot(xx,yy, type='n')
# plot(0,0, type='n', xlim=c(-5, 5), ylim=c(-200, 100)) # an other plot region
polygon(xx, yy, col="gray", border = "red")
xx <- xx+500
yy <- yy+500
polygon(xx, yy, col="gray", border = "red")