r - 不要在 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