正如@Richard Telford 所说,图中的差距是由于数据缺失造成的。使用基函数complete.cases
和na.locf
从zoo
间隙中可以删除或填充以前的观察结果,如下所示:
#to identity periods with missing data
missingPeriod = as.Date(index(ss[!complete.cases(ss),]))
#to retain only periods with no missing data
ssComplete = ss[complete.cases(ss),]
#to retain all periods with gaps filled with previous value
#maxgap parameter controls number of missing data replaced with prev observation
N = 5
ssFilled = zoo::na.locf(ss,maxgap=N);
#plots
plot.zoo(ssComplete , type = "o")
plot.zoo(ssFilled, type = "o")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句