R中时间序列数据的插值

Question

我不确定我在这里缺少什么，但我基本上是在尝试计算时间序列的插值;当我直接绘制系列，用“interpolation.date.vector”约束插值点时，图是正确的：

plot(date.vector,fact.vector,ylab='Quantity')
lines(spline(date.vector,fact.vector,xout=interpolation.date.vector))

当我计算插值时，将其存储在中间变量中，然后绘制结果;我得到了一个完全不正确的结果：

intepolated.values <- spline(date.vector,fact.vector,xout=interpolation.date.vector)

plot(intepolated.values$x,intepolated.values$y)
lines(intepolated.values$x,intepolated.values$y)

line（）函数不是必须执行spline（）函数来检索内插点，就像我正在做的那样吗？

Answer 1

对于插值，我使用approx。 例如：

inter <- approx(date.vector, fact.vector, xout=interpolation.date.vector)
inter$x # holds x interpolated values, basically interpolation.date.vector 
inter$y # holds y interpolated values

缺点是它要么是线性插值，要么是常数插值。