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

Question

我正在尝试用条件颜色填充奇怪的形状，但很难找到一种方法来做到这一点。理想情况下，会有一个形状构建器，每个 x,y 输入 4 个点，填充这些点之间的区域。

像形状(x1,y1,x2,y2,x3,y3,x4,y4,col='black')

这是我用来构建情节的代码：

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