批量求数据框中变量的众数及其频率fun1<-function(x){a<-table(x)/length(x)
      m<-data.frame(a)  
      mod_n<-m[which.max(m[,2]),]}
z<-apply(xyfx_model,2,fun1)

得到的结果
> head(z)
$CUST_ID
           x         Freq
1 1000003260 0.00011009

> str(z)
List of 501
$ CUST_ID   


要怎么选出众数频率达到50%的变量
> z[which(z>0.5)]
Error in which(z > 0.5) : (串列)对象不能强制改变成'double'种类