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

对于插值，我使用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

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