0
我有一個有幾列的數據框,我想在此數據框的底部追加一行,其中包含最後2行數據的增長率的移動平均值在每一列中。R:作爲移動平均增長率追加行
數據:
A | B
3 | 4
4 | 3
5 | 5
4 | 3
1 | 5
新行列A
,((1-4)/4 + (4-5)/5)/2 = -0.475
和B
,2/15
。
所以數據幀想:
A | B
3 | 4
4 | 3
5 | 5
4 | 3
1 | 5
-0.475 0.133
我曾嘗試以下,但遺憾的是它不工作,我不能找到一種方法,使用最後計算每列的新行使用。我應該怎麼做呢?
moving_avg_growth_rate = function (x) {
growth = x/lag(x) - 1
moving_average = filter(growth, rep(1/2, 2))
return (moving_average)
}
lapply(dataframe, moving_avg_growth_rate)
分別計算增長率,然後'rbind'it到原來的df – cephalopod