4

我正在发现 R,虽然我看到它有多么强大,但我也有点迷茫。在这种情况下,我有一个季度时间序列,称为通货膨胀。我的目标是计算每个季度数据点的同比增长率。所以基本上,从 1981 年第一季度开始,我想做(1982 年第一季度通胀 - 1981 年第一季度通胀)/1981 年第一季度通胀作为第一点,依此类推……

当我执行 diff(Inflation,lag=4) 时,我得到第一部分,即(Inflation Q1 1982 - Inflation Q1 1981)。但是我如何告诉 R 将其除以 1981 年第一季度的通货膨胀作为第一点,然后除以 1981 年第二季度的通货膨胀......

来自其他语言,我的第一种方法是循环,但我相信 R 可以更快、更有效地做到这一点。

谢谢!

4

1 回答 1

5

给你

> series <- ts(1:12, frequency = 4, start = c(1981, 1)) # example of quarterly serie
> series # this is how `series` looks like
     Qtr1 Qtr2 Qtr3 Qtr4
1981    1    2    3    4
1982    5    6    7    8
1983    9   10   11   12
> diff(series, lag=4)/ lag(series, k=-4) # the result you want
          Qtr1      Qtr2      Qtr3      Qtr4
1982 4.0000000 2.0000000 1.3333333 1.0000000
1983 0.8000000 0.6666667 0.5714286 0.5000000

作为另一种选择,您可以使用:

> (series/lag(series, k=-4))-1
于 2013-11-14T11:33:20.883 回答