用R插值缺少的四分之一

我有一个从2005年到2011年的季度时间序列。我丢了一些硬币。所以我想对累进数列进行插值。 我的系列：

time<-c(14881.3,
14989.6,
15021.1,
15190.3,
15275,
15336.7,
15431.3,
15433.7,
15538.4,
15606.6,
15779.9,
15916.2,
15831.7,
16010.4,
16205.6,
16340.02,
16447.40142,
16581.81725,
16675.90362,
16799.3577,
NA,
NA,
NA,
17128.74,
NA,
NA,
NA,
17586.85)

library(tempdisagg)
time.A <- ts(time, frequency = 4, start = 2005)
time.A 
         Qtr1     Qtr2     Qtr3     Qtr4
2005 14881.30 14989.60 15021.10 15190.30
2006 15275.00 15336.70 15431.30 15433.70
2007 15538.40 15606.60 15779.90 15916.20
2008 15831.70 16010.40 16205.60 16340.02
2009 16447.40 16581.82 16675.90 16799.36
2010       NA       NA       NA 17128.74
2011       NA       NA       NA 17586.85

所以我用预测的四分之一来替换我丢失的四分之一。

---

但我认为我还应该使用其他季度的信息，而不仅仅是年度系列。

您可以通过以下方式轻松地插入您的系列：

zoo::na.approx(time.A)
         Qtr1     Qtr2     Qtr3     Qtr4
2005 14881.30 14989.60 15021.10 15190.30
2006 15275.00 15336.70 15431.30 15433.70
2007 15538.40 15606.60 15779.90 15916.20
2008 15831.70 16010.40 16205.60 16340.02
2009 16447.40 16581.82 16675.90 16799.36
2010 16881.70 16964.05 17046.39 17128.74
2011 17243.27 17357.79 17472.32 17586.85

---

您可以通过以下方式轻松插值序列：

zoo::na.approx(time.A)
         Qtr1     Qtr2     Qtr3     Qtr4
2005 14881.30 14989.60 15021.10 15190.30
2006 15275.00 15336.70 15431.30 15433.70
2007 15538.40 15606.60 15779.90 15916.20
2008 15831.70 16010.40 16205.60 16340.02
2009 16447.40 16581.82 16675.90 16799.36
2010 16881.70 16964.05 17046.39 17128.74
2011 17243.27 17357.79 17472.32 17586.85

---

您可以通过以下方式轻松插值序列：

zoo::na.approx(time.A)
         Qtr1     Qtr2     Qtr3     Qtr4
2005 14881.30 14989.60 15021.10 15190.30
2006 15275.00 15336.70 15431.30 15433.70
2007 15538.40 15606.60 15779.90 15916.20
2008 15831.70 16010.40 16205.60 16340.02
2009 16447.40 16581.82 16675.90 16799.36
2010 16881.70 16964.05 17046.39 17128.74
2011 17243.27 17357.79 17472.32 17586.85

---

您可以通过以下方式轻松插值序列：

zoo::na.approx(time.A)
         Qtr1     Qtr2     Qtr3     Qtr4
2005 14881.30 14989.60 15021.10 15190.30
2006 15275.00 15336.70 15431.30 15433.70
2007 15538.40 15606.60 15779.90 15916.20
2008 15831.70 16010.40 16205.60 16340.02
2009 16447.40 16581.82 16675.90 16799.36
2010 16881.70 16964.05 17046.39 17128.74
2011 17243.27 17357.79 17472.32 17586.85

---

非常感谢。不管怎样，我很高兴看到你的成绩和我的一样。谢谢！不管怎样，我很高兴看到你的成绩和我的一样。谢谢！不管怎样，我很高兴看到你的成绩和我的一样。谢谢！无论如何，我很高兴看到你的结果和我的一样。