ここで何が欠けているのかわかりませんが、基本的に時系列の補間値を計算しようとしています。「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() 関数を実行して、私がやっているのと同じ方法で補間されたポイントを取得する必要はありませんか?