不要在data.table中删除by = 2 col的空白级别

Question

我需要显示所有级别：

require(data.table)
x <- data.table(x=runif(3), group=factor(c('a','b','a'), 
  levels=c('a','b','c')),group2=factor(c('u','f','l')))

data.frame(xtabs(~group+group2,x))

 group group2 Freq
     a      f    0
     b      f    1
     c      f    0
     a      l    1
     b      l    0
     c      l    0
     a      u    1
     b      u    0
     c      u    0

有一种优雅的方法可以使用data.table结构获得相同的结果吗？ 我试过这个：

x[,.N,list(group,group2)]

   group group2 N
1:     a      u 1
2:     a      l 1
3:     b      f 1

但不起作用。 一些想法？ 提前致谢

Answer 1

如果您按照要分组的两列进行键入，则可以使用这些级别在CJ中创建所有组合。

setkeyv(x, c('group','group2'))
x[CJ(levels(group),levels(group2)), .N]

#    group group2 N
# 1:     a      f 0
# 2:     a      l 1
# 3:     a      u 1
# 4:     b      f 1
# 5:     b      l 0
# 6:     b      u 0
# 7:     c      f 0
# 8:     c      l 0
# 9:     c      u 0