r - セグメントを結合して描画した画像を黒で塗りつぶす方法は?

Question

セグメントを結合して描画された画像の領域を色で塗りつぶす方法。

plot.new()
R<-.8
r<-.2
angle<-45
angle1<-45*0.0174532925
angle2<-(angle-15)*0.0174532925
angle3<-(angle+15)*0.0174532925
xpos<-R*cos(angle1)
ypos<-R*sin(angle1)
x1<-r*cos(angle2)
y1<-r*sin(angle2)
x2<-r*cos(angle3)
y2<-r*sin(angle3)
x<-c(0,x1,xpos,x2,0)
y<-c(0,y1,ypos,y2,0)


segments(0,0,x1,y1,lwd=4)
segments(0,0,x2,y2,lwd=4)
segments(x1,y1,xpos,ypos,lwd=4)
segments(x2,y2,xpos,ypos,lwd=4)

よろしく

Answer 1

polygon(c(0,x1, xpos, x2), c(0, y1, ypos, y2), border="red", col="black", lwd=4)

使用する場合segments、このようにすべての座標を同時に入力することもできます

segments(c(0,0,x1,x2), c(0, 0, y1, y2), c(x1,x2,xpos,xpos), c(y1,y2,ypos,ypos))