多边形图表问题 (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 边界线。这里有什么问题？

P.S。数据通过 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)。我们收到：

多边形图表问题 (R)

Polygon chart issues (R)

charts

r

polygon

time-series