R语言中如何按字符串格式的数值范围为数据分组打标签？

需要为数值数据按规则添加标签，规则存储在Excel导入的DataFrame中，codes列是字符串格式的范围（如"10:20"、"21,30:40"），无法直接被R识别为数值范围。示例数据如下：

labels <- data.frame(group = 1:3, codes = c("10:20", "21,30:40", "25:26"))
data<-data.frame(value = c(10,25,36,21,12))

尝试过merge和嵌套ifelse结合%in%的方法，但均无法正确识别字符串格式的范围，期望得到的结果：

want <- data.frame(group=c(1,3,2,2,1), 
                     value = c(10,25,36,21,12))

方法1：解析字符串为数值集合后匹配 #

先将每个codes字符串转换成对应的数值向量，再判断每个value所属的分组。

1. 编写解析函数：

parse_codes <- function(code_str) {
  # 按逗号分割多个区间/单个值
  parts <- strsplit(code_str, ",")[[1]]
  nums <- lapply(parts, function(part) {
    if (grepl(":", part)) {
      # 处理范围格式（如"10:20"）
      range_vals <- as.numeric(strsplit(part, ":")[[1]])
      seq(range_vals[1], range_vals[2])
    } else {
      # 处理单个数值（如"21"）
      as.numeric(part)
    }
  })
  unlist(nums)
}

2. 为规则表添加解析后的数值集合列：

labels$num_set <- lapply(labels$codes, parse_codes)

3. 匹配每个值对应的分组：

data$group <- sapply(data$value, function(v) {
  # 找到所有包含当前值的分组，返回第一个匹配的分组
  match_idx <- which(sapply(labels$num_set, function(s) v %in% s))
  if (length(match_idx) > 0) labels$group[match_idx[1]] else NA
})

方法2：生成逻辑表达式动态判断 #

将字符串格式的范围转换为R可执行的逻辑表达式，直接进行条件判断，适合处理大范围数值场景。

1. 编写表达式转换函数：

code_to_expr <- function(code_str) {
  parts <- strsplit(code_str, ",")[[1]]
  expr_parts <- lapply(parts, function(part) {
    if (grepl(":", part)) {
      range_vals <- as.numeric(strsplit(part, ":")[[1]])
      sprintf("value >= %d & value <= %d", range_vals[1], range_vals[2])
    } else {
      sprintf("value == %d", as.numeric(part))
    }
  })
  paste(expr_parts, collapse = " | ")
}

2. 为规则表添加逻辑表达式列：

labels$expr <- sapply(labels$codes, code_to_expr)

3. 逐个判断值所属分组：

data$group <- sapply(data$value, function(v) {
  value <- v # 绑定变量供表达式识别
  # 按顺序检查每个分组的条件，返回第一个匹配的分组
  for (i in 1:nrow(labels)) {
    if (eval(parse(text = labels$expr[i]))) {
      return(labels$group[i])
    }
  }
  NA # 无匹配时返回NA
})

两种方法运行后均可得到你期望的结果。

内容的提问来源于stack exchange，提问作者norli