0
我有这样一个data.table:条件插入
w <- data.table(id=c(rep(1:2,each=4)),
b=c(rep(1:4,each=1)),
c1=c(letters[1:8]),
d=c(LETTERS[1:8]))
现在,我倒是喜欢:
- 用于与B> 2每个ID
- 有C1等于滞后C1
- 有d等于导致d(或NA)
- 乙方应NA
所需的输出是:
> w2
id b c1 d
1: 1 1 a A
2: 1 2 b B
3: 1 3 c C
4: 1 NA b D
5: 1 4 d D
6: 1 NA c NA
7: 2 1 a A
8: 2 2 b B
9: 2 3 c C
10: 2 NA b D
11: 2 4 d D
12: 2 NA c NA