恐怕是因为部分分位数值是相同的level,
不能直接使用,cut()就中断了
如果不是非要5组的话,可以扔一个quantile()进来,比如这一句——
res <- lapply(dup.temp[,1],function(i) { breaks <- c(-Inf,unique(quantile(a[,paste(i,1,sep=".")], na.rm=T)),Inf)
cut(a[,paste(i,2,sep=".")],breaks)
更多的答案,恐怕需要你把前后都贴出来,这样看得比较清楚