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)

lines（）函数是否必须执行spline（）函数以与我执行相同的方式来获取插值点？

Answer 1

对于插值，我使用rox 。 例：

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

缺点是它可以进行线性或恒定插值。