面積

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