我对这些数据有一个新的问题。因为我的完整的数据具有这样参考R中data.table中的上一行,条件为
a=data.table(A=c(1:10),B=c(1,2,0,2,0,0,3,4,0,2),C=c(2,3,1,4,5,3,6,7,2,2),D=c(1,1,1,1,1,2,2,2,2,2))
# A B C D
# 1: 1 1 2 1
# 2: 2 2 3 1
# 3: 3 0 1 1
# 4: 4 2 4 1
# 5: 5 0 5 1
# 6: 6 0 3 2
# 7: 7 3 6 2
# 8: 8 4 7 2
# 9: 9 0 2 2
#10: 10 2 2 2
形式现在,我想创建一个新的列,其计算与B A倍数值的数量/衣柜前一行C,只要B是不是0.例如,在第2行中,我可以计算D = 2 *(1/2)。但是,第4行必须是4 *(2/3),不能是4 *(0/1)。 我使用
a[, D:= {i1 <- (NA^!B)
list(A*shift(na.locf(i1*B))/shift(na.locf(i1*C)))},by=d]
由于Akrun昨天推荐。它不起作用,当我计算它的结果是这样的
A B C d D
# 1: 1 1 2 1 NA
# 2: 2 2 3 1 1.000000
# 3: 3 0 1 1 2.000000
# 4: 4 2 4 1 2.666667
# 5: 5 0 5 1 2.500000
# 6: 6 0 3 2 NA
# 7: 7 3 6 2 3.500000
# 8: 8 4 7 2 4.571429
# 9: 9 0 2 2 5.142857
# 10: 10 2 2 2 NA
任何人都知道这里的问题是什么?错误是较长的对象长度不是较短的对象长度的倍数。
什么将是d的第一个元素的输出? – akrun
D的第一个元素的输出是NA –