r - 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

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