从 cut 中提取断点

Question

该cut函数的文档提供了“一种提取断点的方法”

aaa <- c(1,2,3,4,5,2,3,4,5,6,7)
labs <- levels(cut(aaa, 3))
cbind(lower = as.numeric( sub("\\((.+),.*", "\\1", labs) ),
      upper = as.numeric( sub("[^,]*,([^]]*)\\]", "\\1", labs) ))

#      lower upper
# [1,] 0.994  3.00
# [2,] 3.000  5.00
# [3,] 5.000  7.01

是否有另一种内置的方式来提取断点？

Answer 1

1) read.table我不认为有任何直接用于此的东西，但它更短：

read.table(text = gsub("[^.0-9]", " ", labs), col.names = c("lower", "upper"))

给出这个 data.frame：

  lower upper
1 0.994  3.00
2 3.000  5.00
3 5.000  7.01

2) gsubfn::strapply这是另一种可能性：

library(gsubfn)

strapply(labs, "[.0-9]+", as.numeric, simplify = rbind)

给出这个矩阵：

      [,1] [,2]
[1,] 0.994 3.00
[2,] 3.000 5.00
[3,] 5.000 7.01

3) gsubfn::read.pattern和另一个：

library(gsubfn)

read.pattern(text = labs, pattern = ".(.+),(.+).", col.names = c("lower", "upper"))

给予：

  lower upper
1 0.994  3.00
2 3.000  5.00
3 5.000  7.01