r - 检查文本(短语)中的字符串(单词)列表

Question

除了循环之外，是否有一种优雅的方法来测试是否在短语中找到属于列表的单词？
我在想诸如 apply 之一的列表理解之类的东西职能。
前任:

words <- c("word1", "word2", "word3")
text <- "This is a text made off of word1 and possibly word2 and so on."

如果在文本中找到任何单词以及找到哪个单词，则输出应返回 TRUE。

Answer 1

grepl到救援。

sapply(words, grepl, text)

# word1 word2 word3 
#  TRUE  TRUE FALSE

这考虑了 words 的每个元素，反过来，并返回一个逻辑( TRUE 如果单词出现在 text 中，和 FALSE 否则)。

如果您想确保找到准确的单词，则可以使用:

sapply(words, function(x) grepl(sprintf('\\b%s\\b', x), text))

这将阻止 word1从返回 TRUE当文本有 sword123但缺少 word1 .如果 words 可能没有意义有多词元素。