从R中的x轴开始的曲线着色区域

所以我有一个在x轴上下的图形，我想给线和0之间的区域加上阴影

这里我尝试使用多边形函数，但它只给出曲线下的面积

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

---

由于

多边形

连接第一个点和最后一个点以完成边界，只需在直线的起点和终点添加一个点，强制通过y=0

对于

年份

和

差异1

具有一些任意值：

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

---

由于多边形连接第一个点和最后一个点以完成边界，只需在直线的起点和终点添加一个点，强制通过y=0即可

对于

年份

和

差异1

具有一些任意值：

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

---

由于多边形连接第一个点和最后一个点以完成边界，只需在直线的起点和终点添加一个点，强制通过y=0即可

对于

年份

和

差异1

具有一些任意值：

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

---

由于多边形连接第一个点和最后一个点以完成边界，只需在直线的起点和终点添加一个点，强制通过y=0即可

对于

年份

和

差异1

具有一些任意值：

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