a<- c('type1','type2','type1','type2')
b<- c('col1','col1','col1','col2')
c<- data.frame(a,b)
如果直接用table(c$a,c$b)可以得到统计结果

但是如果用自定义函数
f<-function(data,var){
   d<-table(data$var,data$b)
   d
}
f(c,a)
却报错，请问是什么原因啊？谢谢各位！