Zeichne R-Form aus 4 x, y Punkten auf einem Plot

Question

Ich versuche seltsame Formen mit bedingten Farben zu füllen und habe Schwierigkeiten, einen Weg zu finden, dies zu tun. Idealerweise würde es einen Formenbauer geben, der jeweils 4 Punkte x, y einnimmt, die den Bereich zwischen diesen Punkten ausfüllen.

Wie Form (x1, y1, x2, y2, x3, y3, x4, y4, col = 'black')

Hier ist der Code, den ich den Plot bauen bin mit:

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) 

Also in jeder dieser Formen möchte ich eine bedingte Farbe basierend darauf, wie viele Dinge ich aus einem anderen Datensatz habe. Es ist einfach, die Farbformatierung zu erstellen, aber ich frage mich, wie diese seltsamen Formen am besten gefüllt werden können!

Hier ist, was dieser Code erzeugt:

Thank you!

Answer 1

Die Funktion, die Sie suchen ist 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")