r - 使用 R 中的模板字符串将因子转换为字符串

Question

如果我有一个数据框，其值如下

d = data.frame(value = runif(1000, 10,50))

并且使用cut

将值分类到组中

d$class = cut(d$value, 4)

如何快速将factor对象转换为表示范围的字符串？例如:

(10,20] -> "10 to 20"

我尝试制作一个函数，但我想知道是否有更快的方法。

style.factor <- function(factors, template="%s to %s") {
  parts = str_split(str_sub(factors, 2, -2), ",", simplify=TRUE)
  return(sprintf(template, parts[,1], parts[,2]))
}

> style.factor(d$class)
  "40 to 50" "20 to 30" "30 to 40" ...

Answer 1

您可以使用 sub 相对快速地完成此操作:

gsub("^\\((.+?),(.+?)\\]$", "\\1 to \\2", d$class)