如何在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")