R中数据框正则匹配仅提取部分内容问题排查及修复咨询

问题根源 #

不是正则模式的问题，罪魁祸首是函数里的gsub("[^a-z]","",x)这一行。这行代码会把匹配结果中所有非小写字母的字符（包括数字、小数点、空格）全部删除，导致原本匹配到的4.5 mu被处理成mu，直接丢失了数值部分。

修复方案 #

删除这行破坏匹配内容的gsub代码，或者根据需求只去除多余空格（而非所有非字母字符）。以下是修正后的函数：

find.all.matches <- function(search.col, pattern){
  captured <- str_match_all(search.col, pattern = pattern)
  # 仅去除匹配结果两端的空格，保留完整内容
  t <- lapply(captured, str_trim)
  # 去掉破坏内容的gsub步骤
  t3 <- sapply(t, unique)
  t4 <- lapply(t3, toString)
  found.col <- unlist(t4)
  return(found.col)
}

测试验证 #

用你提供的示例字符串测试：

sample_str <- "high-frequency somatic embryogenesis was achieved from an embryogenic cell suspension culture of acanthopanax koreanum nakai. stem segments were cultured on murashige and skoog (ms) medium containing auxins and cytokinins. opaque and friable embryogenic callus formed on ms medium with 4.5 mu m 2,4-dichlorophenoxyacetic acid (2,4-d) and 2.0 mu m kinetin or zeatin, but was highest on medium containing 4.5 mu m 2,4-d alone."

# 测试修正后的函数
result <- find.all.matches(search.col = sample_str, pattern = "\\d+(?:[.,]\\d+)*\\s*mu\\b|\\b(?:kinetin|zeatin)\\b")
print(result)

输出结果会是：

[1] "4.5 mu, 2.0 mu, kinetin, zeatin"

完全符合预期，保留了带数值的mu相关内容以及kinetin、zeatin。

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