从图上的4 x，y点绘制R形状

Question

我试图用条件颜色填充奇怪的形状，并且无法找到实现此目的的方法。理想情况下，会有一个形状构建器，每个x，y接收4个点，填充这些点之间的区域。

喜欢形状（x1，y1，x2，y2，x3，y3，x4，y4，col =＆＃39; black＆＃39;）

以下是我用来构建剧情的代码：

 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")