如何在R语言中提取字符串中模式匹配的首个结果（多匹配场景）

嘿，我刚好碰到过类似的需求，给你两个实用的解决方案！你现在用strapply会返回所有匹配结果，其实只要简单调整就能只拿到第一个匹配项~

方法一：调整strapply的函数参数 #

strapply默认会找出字符串中所有符合正则的匹配项，但我们可以通过传入一个匿名函数，指定只保留每个字符串的第一个匹配结果。修改后的代码如下：

library(gsubfn) # 记得先加载strapply所属的gsubfn包
x <- c("ab_cdef_ghij_kl","abc_d_efgh_ijk_l","ab_cde_fghi_jk_l")
# 仅提取首个匹配项
result <- strapply(x, "_.", function(match) match[1], simplify = TRUE)
print(result)

运行后你会得到每个字符串对应的首个匹配结果："_c" "_d" "_c"，完美符合你的需求。

方法二：用stringr包的str_extract（更简洁直观） #

如果觉得strapply的写法有点繁琐，推荐试试stringr包的str_extract函数——它本身的设计就是只返回每个字符串的第一个匹配项，用起来非常省心：

library(stringr)
x <- c("ab_cdef_ghij_kl","abc_d_efgh_ijk_l","ab_cde_fghi_jk_l")
result <- str_extract(x, "_.")
print(result)

这个代码的输出和方法一完全一致，但代码更短、可读性更高，日常处理这类需求时我更常用这个方法~

内容的提问来源于stack exchange，提问作者Ashish Gupta Silla