從一個陰謀的4個x，y點繪製R形狀

Question

我想用有條件的顏色填充奇怪的形狀，並且難以找到一種方法來做到這一點。理想情況下，會有一個形狀建造者，每個x，y都有4個點，填充這些點之間的區域。

狀（X1，Y1，X2，Y2，X3，Y3，X4，Y4，COL = '黑'）

這裏是我使用來構建情節的代碼：

plot(1,1,type='n',xlim=c(-250,250),ylim=c(0,420),cex.main=2.25,xaxt='n',yaxt='n',xlab="",ylab="") 
segments(0,0,-283,283,lwd=3.8) 
segments(0,0,283,283,lwd=3.8) 
library('plotrix') 
segments(sqrt(16200)/2,sqrt(16200)/2,-(300-(-sqrt(16200)/2))/tan(45),350,lty=2) 
segments(-sqrt(16200)/2,sqrt(16200)/2,(300-(-sqrt(16200)/2))/tan(45),350,lty=2) 
segments(0,sqrt(16200),-112.25,400,lty=2) 
segments(0,sqrt(16200),112.25,400,lty=2) 
segments(0,sqrt(16200),0,420,lty=2) 
draw.arc(0, 0, 250, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2) 
draw.arc(0, 0, 300, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2) 
draw.arc(0, 0, 350, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2) 
draw.arc(0, 0, 400, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2) 

因此，在每個這些形狀中，我都會根據從另一個數據集中得到的有多少東西來獲得條件顏色。建立顏色格式很容易，但想知道填補這些奇怪形狀的最佳方法！

下面是代碼產生什麼：

謝謝！

Answer 1

你正在尋找的功能是polygon

x<-c(0,0,2,1) 
y<-c(0,1,2,0) 
plot(1, type="n", axes=T, xlab="", ylab="",xlim=c(0,2),ylim=c(0,2)) 
polygon(x,y,col="red")