批量求数据框中变量的众数及其频率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'种类


雷达卡




京公网安备 11010802022788号







