如何在通过连接片段绘制的图像中填充黑色？

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