表（）的组中的R

Question

的样本数据：

a <- sample(1:4, 100, replace = T) 
b <- sample(0:1, 100, replace = T) 

d <- data.frame(a, b) 

我想为a各级自动实现这一目标输出：

table(d$b[d$a==1]) 
table(d$b[d$a==2]) 
table(d$b[d$a==3]) 
table(d$b[d$a==4]) 

我可以做一个for循环，但是不是在河的精神

for (i in unique(d$a)) { 
print(table(d$b[d$a==i])) 
} 

相反，我想使用的许多单功能之一R. 我试图用ddply从plyr包：

ddply(d, ~a, function(x) table(b)) 

但这只是同table(d$b)重复四次。

如何使用列表函数将table()函数应用于a中的每个组，最好是ddply？

Answer 1

您可以使用table使用多个参数：

table(d$a,d$b) 

    0 1 
    1 15 10 
    2 6 16 
    3 13 10 
    4 20 10 

或者，如果你只有要在data.frame制表数据，它会为您处理它，如果你的数据传递。框架：

table(d) 
    b 
a 0 1 
    1 15 10 
    2 6 16 
    3 13 10 
    4 20 10