多邊形圖問題（R）

Question

我們有：

   date         mark_cum
1 2015-07-23   0.0000000
2 2015-07-23   0.5000000
3 2015-07-23   0.6666667
4 2015-07-24   0.6666667
5 2015-07-27   0.7500000
6 2015-07-27   0.8000000

summary(data.ru)
date                           
 Min.   :2015-07-23 00:00:00     
 1st Qu.:2015-08-24 18:00:00   
 Median :2015-09-21 00:00:00    
 Mean   :2015-09-23 16:21:00   
 3rd Qu.:2015-10-27 06:00:00    
 Max.   :2015-11-25 00:00:00  

mark_cum   
Min.   :0.0000  
1st Qu.:0.7607  
Median :0.7755  
Mean   :0.7782  
3rd Qu.:0.8090  
Max.   :0.8750

這個想法是構造以下樣式的多邊形：

因此，我們執行以下過程：

hi.res.date <- approx(data.ru$date, data.ru$mark_cum, n=2000)$x
hi.res.mark <- approx(data.ru$date, data.ru$mark_cum, n=2000)$y
net.plus <- hi.res.mark; net.plus[net.plus<0.75] <- 0.75
net.minus <- hi.res.mark; net.minus[net.minus>0.75] <- 0.75
plot(data.ru3$data,rep(NA,160),type="l",ylim=c(0.75,1))

polygon(c(hi.res.date,rev(hi.res.date)),c(net.plus, rep(0,160)),col="green",border=NA)

並且我們收到一個隨機的混亂，其中多邊形未考慮為net.plus和net.minus對象編寫的0.75邊界線。 怎么了

PS數據通過lubridate轉換為R可讀格式。

Answer 1

問題在於這條線：

polygon(c(hi.res.date,rev(hi.res.date)),c(net.plus, rep(0,160)),col="green",border=NA)

必須將rep(0,160)設置為rep(0.75,160) 。 我們收到：