在R语言中将含范围的字符串列转换为展开值的字符列

问题场景 #

现有如下DataFrame，range列混合了数值范围（如1:3）和单个值，需要将范围展开为包含所有值的逗号分隔字符串：

x <- c("a","b")
y <- c("1:3,7","9")
dat <- data.frame("char"=x,"range"=y)

# 原数据
> dat
  char range
1    a 1:3,7
2    b     9

期望输出：

> dat2
  char   range
1    a 1,2,3,7
2    b       9

解决方案 #

核心思路是先按逗号拆分每个range字符串，对拆分后的每个部分单独解析生成数值序列，最后合并为逗号分隔的字符串。

方法一：Base R实现

# 定义处理单个range字符串的函数
expand_range <- function(range_str) {
  # 按逗号拆分每个元素
  parts <- strsplit(range_str, ",")[[1]]
  # 解析每个部分生成完整序列
  expanded_vals <- unlist(lapply(parts, function(p) {
    eval(parse(text = p))
  }))
  # 转换为逗号分隔的字符串
  paste(expanded_vals, collapse = ",")
}

# 应用到DataFrame
dat$range <- sapply(dat$range, expand_range)
dat2 <- dat

# 查看结果
> dat2
  char   range
1    a 1,2,3,7
2    b       9

方法二：Tidyverse实现

如果习惯使用tidyverse语法，也可以用mutate配合sapply：

library(tidyverse)

expand_range <- function(range_str) {
  strsplit(range_str, ",")[[1]] %>%
    map(~ eval(parse(text = .x))) %>%
    unlist() %>%
    paste(collapse = ",")
}

dat2 <- dat %>%
  mutate(range = sapply(range, expand_range))

错误原因说明 #

之前直接解析"1:3,7"报错，是因为R的解析器无法识别1:3,7这种语法——逗号在R中是分隔参数的符号，不是序列的一部分。必须先按逗号拆分字符串，让每个范围/单个值独立解析，才能避免语法错误。

边界情况测试 #

如果range列包含多个范围，比如"2:5,8:10,12"，该函数也能正确处理：

test_str <- "2:5,8:10,12"
expand_range(test_str)
# [1] "2,3,4,5,8,9,10,12"

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