使用cut - 获取缺失值将数据分成分位数

时间:2013-04-23 07:46:12

标签: r

我有一个数据框:

a <- matrix(c(1,2,3,4), 2,2)
colnames(a) <- c("a", "b")
df <- as.data.frame(a)

> df
  a b
1 1 3
2 2 4

首先,我计算“a”栏的四分之一:

> quantile (df$a)
  0%  25%  50%  75% 100% 
1.00 1.25 1.50 1.75 2.00 

然后,我想使用“a”栏中的四分位数对“b”列进行分类:

> cat.b<-cut(df$b, quantile (df$a,))
> cat.b  
[1] <NA> <NA>  
Levels: (1,1.25] (1.25,1.5] (1.5,1.75] (1.75,2]

如您所见,R为两个“b”值提供NA,因为它们高于“a”的最高四分位数。

但是,我希望生成的“cat.b”向量看起来像:

> cat.b
[1]
">2"    ">2"  

你能否告诉我如何在R中做到这一点。

谢谢

1 个答案:

答案 0 :(得分:5)

这两个值不在范围内。你可以通过再次休息来规避这一点。我选择了Inf,你可以使用有限值。

cat.b <- cut(df$b, c(-Inf, quantile(df$a), Inf))
#next line can be done better, but illustrates the purpose
levels(cat.b)[length(levels(cat.b))] <- ">2" 
levels(cat.b)[1] <- "<1"

cat.b
[1] >2 >2
Levels: (1,1.25] (1.25,1.5] (1.5,1.75] (1.75,2] >2