如何解决R - 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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。