让我们说我的价值选择是1到9。 我有以下data.table:
> group = c(1,1,1,2,2,2,2,3,3,3,3,4,4)
> value = c(2,3,4,5,6,7,8,2,4,6,7,4,9)
> a=data.table(group=group,value=value)
> a
group value
1: 1 2
2: 1 3
3: 1 4
4: 2 5
5: 2 6
6: 2 7
7: 2 8
8: 3 2
9: 3 4
10: 3 6
11: 3 7
12: 4 4
13: 4 9
现在对于每个组,我想添加缺少的行。即对于组1,我错过了值1和5-9。但是,如果我用CJ做的话:
> b=a[CJ(group=group,value=value,unique=TRUE),on=.(group,value)]
> b
group value
1: 1 2
2: 1 3
3: 1 4
4: 1 5
5: 1 6
6: 1 7
7: 1 8
8: 1 9
9: 2 2
10: 2 3
11: 2 4
12: 2 5
13: 2 6
14: 2 7
15: 2 8
16: 2 9
17: 3 2
18: 3 3
19: 3 4
20: 3 5
21: 3 6
22: 3 7
23: 3 8
24: 3 9
25: 4 2
26: 4 3
27: 4 4
28: 4 5
29: 4 6
30: 4 7
31: 4 8
32: 4 9
group value
我错过了值1.因为它根本不在这个数据表中。但我仍然认为这是我的选择之一。我怎样才能做到这一点?
答案 0 :(得分:2)
正如@ Roland的评论所示,而不是value = value
中的CJ()
,请使用:
value = seq_len(max(value))
或者在value
列中指定您想要的范围。
因此,您只需修改您的尝试:
b = a[CJ(group = group, value = value, unique = TRUE), on = .(group,value)]
成为:
b = a[CJ(group = group, value = seq_len(max(value)), unique = TRUE),
on = .(group,value)]