如何在R语言中将字符串中的数字范围替换为单个数字序列？

没问题！在R里咱们可以通过正则匹配结合自定义替换逻辑来搞定这个需求，我给你整理了一套可行的方案，你可以直接拿去用：

首先，咱们可以借助stringr包的强大替换功能，配合自定义函数来处理两种数字范围格式：

步骤1：加载必要的包 #

先确保安装并加载stringr（如果没装的话先运行install.packages("stringr")）：

library(stringr)

步骤2：定义范围展开函数 #

这个函数会接收正则匹配到的捕获组，把数字范围转换成逗号分隔的序列：

expand_range <- function(match) {
  # 处理连字符模式（比如"1-3"，捕获组1是起始数，组2是结束数）
  if (length(match) == 2) {
    start <- as.integer(match[1])
    end <- as.integer(match[2])
  } 
  # 处理单词连接模式（比如"1 jusqu'à 3"，捕获组1是起始数，组3是结束数）
  else if (length(match) == 3) {
    start <- as.integer(match[1])
    end <- as.integer(match[3])
  }
  
  # 生成序列并转为逗号分隔的字符串
  if (start <= end) {
    paste(seq(start, end), collapse = ",")
  } else {
    # 如果起始数大于结束数，保持原内容（或者你可以根据需求调整逻辑）
    paste(match, collapse = ifelse(length(match)==2, "-", " "))
  }
}

步骤3：批量替换字符串中的所有范围 #

咱们分两次替换：先处理单词连接的情况，再处理连字符的情况（顺序不影响，但分开更清晰）：

# 测试示例字符串
test_strings <- c(
  "I would like to buy 1-3 cats",
  "I would like to buy 1 jusqu'à 3 cats",
  "She needs 4 to 10 books",
  "He wants 7 bis 9 apples"
)

# 替换单词连接的范围
result <- str_replace_all(test_strings, 
                         "(\\d+)\\s+(to|bis|jusqu'à)\\s+(\\d+)", 
                         function(x) expand_range(str_match(x, "(\\d+)\\s+(to|bis|jusqu'à)\\s+(\\d+)")[,-1]))

# 替换连字符的范围
result <- str_replace_all(result, 
                         "(\\d+)-(\\d+)", 
                         function(x) expand_range(str_match(x, "(\\d+)-(\\d+)")[,-1]))

# 查看结果
print(result)

运行这段代码后，你会得到期望的输出：

[1] "I would like to buy 1,2,3 cats"     
[2] "I would like to buy 1,2,3 cats"     
[3] "She needs 4,5,6,7,8,9,10 books"     
[4] "He wants 7,8,9 apples"

补充说明 #

• 如果你需要处理更多的连接词，只需要在正则的(to|bis|jusqu'à)部分添加新的单词，比如加上through就改成(to|bis|jusqu'à|through)
• 函数里加了起始数大于结束数的判断，比如如果遇到"5-2"这种反向范围，会保留原内容，你可以根据需求修改这部分逻辑（比如反转序列或者报错）

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