我有一个data.table如下-
dt = data.table(
date = seq(as.Date("2015-12-01"), as.Date("2015-12-10"), by="days"),
v1 = c(seq(1, 9), 20),
v2 = c(5, rep(NA, 9))
)
dt
date v1 v2
1: 2015-12-01 1 5
2: 2015-12-02 2 NA
3: 2015-12-03 3 NA
4: 2015-12-04 4 NA
5: 2015-12-05 5 NA
6: 2015-12-06 6 NA
7: 2015-12-07 7 NA
8: 2015-12-08 8 NA
9: 2015-12-09 9 NA
10: 2015-12-10 20 NA
问题1:我想将v1的当前行值与v2的前一行值相加,因此输出如下所示。
date v1 v2
1: 2015-12-01 1 5
2: 2015-12-02 2 7
3: 2015-12-03 3 10
4: 2015-12-04 4 14
5: 2015-12-05 5 19
6: 2015-12-06 6 25
7: 2015-12-07 7 32
8: 2015-12-08 8 40
9: 2015-12-09 9 49
10: 2015-12-10 20 69
我尝试使用rollapplyr函数来实现此目的,但是失败了。
问题2:我想将函数qma滚动到v1的当前行值和v2的上一行值,而不是像问题1那样添加 qma <- function(x, y){(x+y+7)/2}
我确信必须有一种简单的方法可以使用data.table在一行中完成此操作。
谢谢
您可以将的first
v2
值加到的总和上v1
。
library(data.table)
dt[, v2:= first(v2) + c(0, cumsum(v1[-1]))]
dt
# date v1 v2
# 1: 2015-12-01 1 5
# 2: 2015-12-02 2 7
# 3: 2015-12-03 3 10
# 4: 2015-12-04 4 14
# 5: 2015-12-05 5 19
# 6: 2015-12-06 6 25
# 7: 2015-12-07 7 32
# 8: 2015-12-08 8 40
# 9: 2015-12-09 9 49
#10: 2015-12-10 10 59
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句