如何让R在编译提取文件名时识别两位数数字？

问题根源 #

你的正则表达式写法有误：Q[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15] 里的方括号[]是字符集合，不是多选列表。它只能匹配Q后面的单个字符（1-9、逗号、0），所以无法识别Q10-Q15这类两位数的编号，自然也没法提取完整数字转为整数。

修正方案 #

我们需要用正确的正则匹配Q后1-2位的数字（1-15），再按需提取数字转成整数，或保留Q前缀的完整字符串。

1. 提取深度（D后的数字）

匹配D后接1位数字，捕获数字部分并转为整数：

library(stringr)

# 提取D后面的数字并转为整数类型
test$depth <- as.integer(str_match(allnames[, ncol(allnames)], "D(\\d)")[, 2])

2. 提取样方编号

• 若要保留Q前缀的完整字符串（如Q10）：

# 精确匹配Q1到Q15的完整标识
test$quadrat_str <- str_extract(allnames[, ncol(allnames)], "Q(1[0-5]|[1-9])")

• 若要将Q后的数字转为整数类型（如10）：

# 捕获Q后面的数字部分并转成整数
quadrat_matches <- str_match(allnames[, ncol(allnames)], "Q(1[0-5]|[1-9])")
test$quadrat_num <- as.integer(quadrat_matches[, 2])

完整示例代码

假设allnames最后一列是文件名（格式如D1Q12），完整代码如下：

library(stringr)

# 处理深度列
test$depth <- as.integer(str_match(allnames[, ncol(allnames)], "D(\\d)")[, 2])

# 处理带Q前缀的样方列
test$quadrat_str <- str_extract(allnames[, ncol(allnames)], "Q(1[0-5]|[1-9])")

# 处理样方数字列（整数类型）
test$quadrat_num <- as.integer(str_match(allnames[, ncol(allnames)], "Q(1[0-5]|[1-9])")[, 2])

正则规则说明 #

• D(\\d)：匹配D后接任意1位数字，(\\d)是捕获组，专门提取数字部分。
• Q(1[0-5]|[1-9])：精准覆盖Q1到Q15：
  • 1[0-5]：匹配10-15的两位数
  • [1-9]：匹配1-9的一位数
  • |表示“或”逻辑，确保所有目标编号都能被匹配到

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