使用cut -cut values将数据绑定到分位数中

Question

我有一个数据框架：

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怎么做吗？

谢谢

Answer 1

这两个值不在范围内。您可以通过另一次中断来绕过这一点。我选择了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