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

缺點是它可以進行線性或恆定插值。