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

Question

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

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

为此，我想我可以使用init功能。但是我不知道如何编写多边形函数来执行此操作。任何帮助将不胜感激。

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)