R语言提取strsplit拆分列表数值元素的高效子集操作方法

你不需要用for循环逐元素拼接向量，R的向量化操作可以更简洁、更高性能地完成这个需求，下面是几种常用的实现方式：

• 基于你已有的strsplit结果优化
  你已经完成了字符串拆分，只需要用apply系列函数批量提取每个列表项的第二个元素即可，不需要手动循环拼接：

  # 提取每个拆分结果的第2位，trimws()用来去掉数字前后多余的空格
  data.values <- trimws(sapply(split.temp.list, `[`, 2))
  
  # 如果需要直接得到数值型向量（不是字符型），直接套as.numeric即可
  data.values <- as.numeric(trimws(sapply(split.temp.list, `[`, 2)))
  

  代码里的`[`是R内置的子集提取运算符，sapply会自动把所有提取结果整合为一个向量，不需要手动逐次追加元素。

• 跳过拆分步骤，直接一步提取
  其实你完全不需要先做strsplit拆分，用字符串匹配可以直接从原始向量里拿到数值部分，代码更短：

  # 基础R写法：把冒号以及冒号前的所有内容、冒号后的空格替换为空，再转数值
  data.values <- as.numeric(trimws(sub(".*:\\s*", "", temp.list)))
  
  # 正则匹配写法：直接提取字符串末尾的连续数字，容错性更强
  data.values <- as.numeric(regmatches(temp.list, regexpr("\\d+$", temp.list)))
  

注意：你原来写的for循环写法性能很差，因为每次执行c(data.values, 新元素)都会在内存中完整复制整个现有向量，再追加新元素，当数据量较大时，耗时会随向量长度呈指数级增长，日常写R代码尽量避免这种动态增长向量的写法。

如果日常需要频繁做字符串处理，也可以用stringr包的str_extract函数，写法更直观：str_extract(temp.list, "\\d+")就可以直接提取出字符串里的数字片段。

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