R中x轴的曲线阴影区域

Question

所以我有一个低于和高于x轴的图形，我想要遮蔽线和0之间的区域

我在这里尝试使用多边形函数，但它只给出了曲线下的区域。

plot(year,difference1,type="l")
polygon(year,difference1,col='120',panel.first=abline(h=1,lty=3))

Answer 1

由于polygon连接第一个和最后一个点以完成边界，只需在线的开头和结尾添加一个强制通过y = 0的点。

year和difference1的一些任意值：

year=1:10
difference1=c(1,2,5,4,-1,-5,2,5,3,-1)
plot(year,difference1,type="l")
polygon(c(year[1],year,year[length(year)]),c(0,difference1,0),col='120',
    panel.first=abline(h=1,lty=3))