r - 插入缺少日期的动物园对象

Question

我有一个缺少日期(不是缺失值)的气候时间序列。例如:

n = 15
full.dates = seq(Sys.Date(), by = 'day', length = n)
serie.dates = full.dates[c(1:10, 12, 15)] # missing 11, 13, 14
y = rnorm(n)

require(zoo)    
serie = zoo(y, serie.dates)

给定“full.dates”向量，我如何“填充”(使用插值)这些缺失的点？
谢谢!

Answer 1

与具有您想要的所有日期的“空”对象合并，然后使用 na.approx (或 na.spline 等)来填充缺失值。

x <- merge(serie, zoo(,seq(start(serie),end(serie),by="day")), all=TRUE)
x <- na.approx(x)