我有一个数据框，里面所有的变量都是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