r - 如何用R对数据进行插值？

Question

我有一个如下所示的数据框:

z <- data.frame(ent = c(1, 1, 1, 2, 2, 2, 3, 3, 3), 
                year = c(1995, 2000, 2005, 1995, 2000, 2005, 1995, 2000, 2005), 
                pobtot = c(50, 60, 70, 10, 4, 1, 100, 105, 110))

如您所见，每个 ent 之间存在 5 年的差距。我想将数据插值到每个缺失的年份:1996、1997、1998、1999、2001、2002、2003、2004，并预测 2006、2007 和 2008。有没有办法做到这一点？

如有任何帮助，我们将不胜感激。

Answer 1

我们可以使用 complete 扩展每个“ent”和“year”范围的数据，然后使用 na.approx 插入“pobtot”中缺失的值

library(dplyr)
library(tidyr)
z %>% 
   complete(ent, year = 1995:2008) %>% 
   mutate(pobtot = zoo::na.approx(pobtot, na.rm = FALSE))