R cut Pretty-print 超越边界的价值

R cut Pretty-print Values Beyond Boundaries

R 中是否有一些功能可以在某些值超出 breaks 时漂亮地打印转换为因子的数字向量?所需的输入和输出是

data <- seq(5, 95, 10)
result <- cutSpecial(data, breaks = c(30, 40, 50, 60, 70))
disc <- c("<30", "<30", "<30", "[30, 40)", "[40, 50)", "[50, 60)", "[60, 70)",
+   ">70", ">70", ">70")
cbind(data, disc)
     data disc      
 [1,] "5"  "<30"     
 [2,] "15" "<30"     
 [3,] "25" "<30"     
 [4,] "35" "[30, 40)"
 [5,] "45" "[40, 50)"
 [6,] "55" "[50, 60)"
 [7,] "65" "[60, 70)"
 [8,] "75" ">70"     
 [9,] "85" ">70"     
[10,] "95" ">70"     

基本 R cut 函数只是将范围外的值变成不令人满意的值 NAcutSpecial 在 R 生态系统中的功能是什么?

我的 santoku 包裹中的 chop()

library(santoku)
data <- seq(5, 95, 10)
chop(data, c(30, 40, 50, 60, 70))
##  [1] [5, 30)  [5, 30)  [5, 30)  [30, 40) [40, 50) [50, 60) [60, 70) [70, 95] [70, 95]
## [10] [70, 95]
## Levels: [5, 30) [30, 40) [40, 50) [50, 60) [60, 70) [70, 95]

如果你想要特定的标签,你可以自己传递它们:

chop(data, c(30, 40, 50, 60, 70), c("< 30", "[30-40)", "[40-50)", "[50-60)", "[60-70)", ">= 70"))

或者在最新版本中,您可以使用lbl_dash()并指定firstlast

chop(data, c(30, 40, 50, 60, 70), labels = lbl_dash(first = "< 30", last = ">= 70"))
##  [1] < 30    < 30    < 30    30 - 40 40 - 50 50 - 60 60 - 70 >= 70   >= 70   >= 70  
## Levels: < 30 30 - 40 40 - 50 50 - 60 60 - 70 >= 70

默认间隔标签没有这样的参数,但也许应该有。