从绘图上的 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")

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

Draw R shape from 4 x,y points on a plot

plot

r

colors

shapes

polygons