r - 插值到一个新的时间向量上

Question

有没有一种方法可以将时间序列插入到新序列上。例如：

data(co2)

Mauna <- as.numeric(window(co2, start = c(1991,1), end=c(1991,12)))
time = seq(from=as.Date("1991-01-01"), to=as.Date("1991-12-01"), length=12)

newTime = seq(from=as.POSIXct("1991-01-01 00:00"), to=as.POSIXct("1991-12-31 23:00"), length=8760)

由此我想将 Mauna 数据插值到新的时间向量上，从而将 Mauna 的测量次数增加到 8760。这可以实现吗？

Answer 1

尝试approx()线性插值：

MaunaLinear <- approx(Mauna,n=8760)$y
plot(newTime,MaunaLinear)

尝试spline()平滑插值的函数：

MaunaSmooth <- spline(Mauna,n=8760)$y
plot(newTime,MaunaSmooth)