これはうまくいくようです
x=c(2,5,5,8,10)
qnt <- quantile(x,seq(0,1,.25))
cut(x,unique(qnt),include.lowest=TRUE)
# [1] [2,5] [2,5] [2,5] (5,8] (8,10]
# Levels: [2,5] (5,8] (8,10]
別の答え。それでも 4 つのビンが必要な場合は、データがそれを正当化しない場合でも、方法があります!
set.seed(1024)
x <- sample(1:3,101,replace=TRUE)
binx <- rank(x,ties.method="random")%/%(ceiling(length(x)/4)+1)
そして、ここで効果を見ることができます。
binx_ranges <- by(x,binx,range)
# binx: 0
# [1] 1 1
# ------------------------------------------------------------
# binx: 1
# [1] 1 2
# ------------------------------------------------------------
# binx: 2
# [1] 2 3
# ------------------------------------------------------------
# binx: 3
# [1] 3 3
table(binx,x)
# x
# binx 1 2 3
# 0 26 0 0
# 1 8 19 0
# 2 0 13 14
# 3 0 0 21