r - 需要提取中间词以 R 中的特定词开头的整个句子

Question

我需要提取中间词以 R 中的特定词开头的整个句子。下面是我尝试使用但无法获得所需结果的代码。我不熟悉 R 中的正则表达式概念。我想提取中间词为“arent”的句子。

  yy <- c("computers arent working", "arent not wkng","scanner arent good","arent scanner good")
  m <- gregexpr('\\w arent ', yy)
  regmatches(yy, m)

上面的代码没有给出我想要的。我想要的输出是:

 "computers arent working", "scanner arent good"

感谢您的帮助!

Answer 1

我建议

grep("\\w\\W+arent\\W+\\w", yy, value = TRUE)

grep 将找到所有匹配正则表达式模式的字符串(找到部分匹配)，并将输出值本身(作为 value 设置为 TRUE)。

正则表达式模式匹配 arent in-between 字 (\w) 字符并且只包含 1+ 个非字 (\W+) 个字符。

Online R demo :

yy <- c("computers arent working", "arent not wkng","scanner arent good","arent scanner good")
grep("\\w\\W+arent\\W+\\w", yy, value = TRUE)
## => [1] "computers arent working" "scanner arent good" 

如果您要匹配的单词必须用空格括起来，请将 \\W+ 替换为 \\s+(1 个或多个空格)。