在R语言中提取带对应属性的向量单个元素？需兼容regmatches

问题场景 #

gregexpr返回的结果是一个列表，每个列表元素是匹配位置的向量，同时附带match.length属性，示例输入结构如下：

[[1]]
[1]  21 136 409 512 587 693
attr(,"match.length")
[1] 3 4 5 5 4 9

需要提取指定位置的单个元素及其对应的match.length属性，得到如下结构（以提取第3个元素为例）：

[[1]]
[1] 409
attr(,"match.length")
[1] 5

且最终对象必须兼容regmatches函数。

解决方案 #

假设原gregexpr结果存储在变量res中，要提取第idx个元素（示例中idx=3），可以用以下代码：

# 设定要提取的元素索引
idx <- 3

# 处理列表，保留结构并提取目标元素与对应属性
single_res <- lapply(res, function(x) {
  # 提取目标位置的匹配值
  out <- x[idx]
  # 提取对应位置的match.length属性
  attr(out, "match.length") <- attr(x, "match.length")[idx]
  out
})

说明 #

• 该方法通过lapply遍历gregexpr返回的列表，对每个子元素单独处理，提取指定索引的匹配位置和对应长度属性
• 处理后的single_res完全保留了gregexpr返回的结构（列表+带属性的向量），可以直接传入regmatches函数使用

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