插入缺失日期的動物園對象

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)