如何统计数据框每列的频数

我有一个数据框，里面所有的变量都是0或者1形式。

如何获取每列的1和0的频数情况？

举列如下：
a<-rep(c(0,1),c(4,6))
b<-rep(c(0,1),c(9,1))
c<-rep(c(0,1),c(10,0))

data<-data.frame(a,b,c)

如何生成一个表，包含所有列名，及对应的0和1的频数？其中c中1的频数是0

1. a<-rep(c(0,1),c(4,6))
   
2. b<-rep(c(0,1),c(9,1))
   
3. c<-rep(c(0,1),c(10,0))
   
4. data<-data.frame(a,b,c)
   
5. ff <- function(d) return(c(sum(d==0),sum(d==1)))
   
6. result <- sapply(data,ff)
   
7. rownames(result) <- c(0,1)

复制代码

> a<-rep(c(0,1),c(4,6))
> b<-rep(c(0,1),c(9,1))
> c<-rep(c(0,1),c(10,0))
> data<-data.frame(a,b,c)
> ls<-apply(data,2,table)
> ls
$a

0 1
4 6

$b

0 1
9 1

$c

0
10