プロットの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") 

です