多列的频率和百分比计数

我的数据看起来像:

print(dat)
i1  i2  i3  i4
 0   1   1   0
NA   1   1   1
 0   0   0   1
 1   1   1   1

我的目标是通过函数的一些组合理想地获得三条信息sapply:1的数量,0的数量,以及1的非NA的百分比.因此,例如,理想的结果将是这样的:

function(dat)
0  1   percentage
5  10      66.7

谢谢!

这里有一个选项:

c(sum(mat==0,na.rm=TRUE),
  sum(mat==1,na.rm=TRUE),
  round(sum(mat==1,na.rm=TRUE)/sum(!is.na(mat))*100,1))

## 5.0 10.0 66.7