计算由两个变量分组的变量

Question

我们都知道R中的函数table 。我在搜索使用table(x,y)时获得相同Output的table(x,y)但不针对x和y值的每个组合而是对另一个变量z进行计数。 在data.table中，可以通过dt[,sum(z),by=c("x","y")] 。 但这并不能提供等于table（x，y）-输出的输出。 我尝试过dcast但也没有得到我想要的

 dt <- data.table(y=rep(letters[1:2],each=3),x=rep(letters[1:2],length=6),z=rep(letters [7],length=6))  
   y x z
1: a a g
2: a b g
3: a a g
4: b b g
5: b a g
6: b b g

它应该具有此输出，但计数为g：

    y
 x   a b
   a 2 1
   b 1 2

我想得到这些结果，但是以表格的形式：

   x y V1
1: a a  2
2: b a  1
3: b b  2
4: a b  1

Answer 1

DF <- data.frame(y=rep(letters[1:2],each=3),
                 x=rep(letters[1:2],length=6),
                 z=rep(letters [7],length=6)) 

tapply(X=DF$z, INDEX=list(DF$x, DF$y), FUN=length)
#  a b
#a 2 1
#b 1 2

Answer 2

您可以尝试使用“ plyr”软件包

 install.packages('plyr');
 library('plyr');
 ddply(dt,.variables=c("y","x"),.fun=count)[,c(1:2,4)];

给

   y x freq
 1 a a  2
 2 a b  1
 3 b a  1
 4 b b  2