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

【问题标题】：Interpolate zoo object with missing Dates插入缺少日期的动物园对象
【发布时间】：2013-02-13 10:07:41
【问题描述】：

我有一个缺少日期（不是缺少值）的气候时间序列。例如：

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”向量的情况下，我如何“填充”（使用插值）这些缺失点？谢谢！

【问题讨论】：

标签： r time-series interpolation zoo

【解决方案1】：

与包含所有所需日期的“空”对象合并，然后使用na.approx（或na.spline 等）填充缺失值。

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

【讨论】：

也试试 na.locf ：它采用给定 NA 之前的最新值