R 樣條插值中的奇怪數字

Question

我正在做一個經濟項目。 但是，數據僅按季度提供，我需要將它們轉換為每月。 我按照在線教程中的所有步驟進行操作，但結果很奇怪。

這是代碼：

monthly = seq(mydata$DATE[1], tail(mydata$DATE,1), by = 'month')

monthly_data = data.frame(Nodate = monthly,
                          percent = spline(mydata$TDSP,
                                           method = "fmm",
                                           xout = monthly)$y)
head(monthly_data,10)

原始數據

結果

請幫忙，非常感謝

Answer 1

thelatemail 建議

monthly = seq(mydata$DATE[1], tail(mydata$DATE,1), by = 'month')

monthly_data = data.frame(Nodate = monthly,
                          percent = spline(mydata$DATE,
                                           mydata$TDSP,
                                           method = "fmm",
                                           xout = monthly)$y)
head(monthly_data,10)