所以我有一个位于 x 轴下方和上方的图表，并且想要对线和 0 之间的区域进行着色
在这里，我尝试使用多边形函数，但它只给出曲线下的面积。
plot(year,difference1,type="l")
polygon(year,difference1,col='120',panel.first=abline(h=1,lty=3))
Since polygon连接第一个点和最后一个点来完成边界，只需在线的开头和结尾添加一个点，强制通过 y=0。
对于一些任意值year and 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))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
