绘制以在R中的折线图上添加多边形

Question

我已经使用R中的overlapPlot()函数用我的数据制作了下图。

我想在显示日出和日落的图表中添加阴影区域。日出在6-7点之间，日落在18-19点之间。

要做到这一点，我想我可以使用polygon()函数。然而，我不确定如何编写多边形函数来做到这一点。任何帮助都将不胜感激。

​

​

Answer 1

我使用了以下代码：

#SUNRISE
    cord.x <- c(5.52)
    cord.y <- c(0)

    cord.x <- c(cord.x,5.52) 
    cord.y <- c(cord.y,4)

    cord.x <- c(cord.x,8.37,8.37)
    cord.y <- c(cord.y,4,0)
    polygon(cord.x,cord.y,col=adjustcolor("blue",alpha.f=0.4),border=NA)

#SUNSET
    cord.x <- c(-5.56)
    cord.y <- c(0)

    cord.x <- c(cord.x,-5.56) 
    cord.y <- c(cord.y,4)

    cord.x <- c(cord.x,-8.48,-8.48)
    cord.y <- c(cord.y,4,0)
    polygon(cord.x,cord.y,col=adjustcolor("blue",alpha.f=0.3),border=NA)