自问自答
这个问题是高百分位累积太多重复值
我在stackoverflow发现有个高手自己写函数来解决
先做一个符合特性的向量 并想分5群
x=c(rep(10,20),runif(50,2,10))
findInterval(x,quantile(x,probs = 0:5/5),
rightmost.closed=T,left.open = T )
会发现只能分4群
hmisc的cut2也是
cut2(x,g=5) %>% as.numeric()
自制函数可以成功分出5群
ntile=function(x,n){
b <- x[!is.na(x)]
q <- floor((n * (rank(b, ties.method = "first")-1)/length(b))+1)
d <- rep(NA, length(x))
d[!is.na(x)] <- q
return(d)
}
大家可以试试看