r - 使用 grepl 搜索文本中的多个子字符串之一

Question

这个问题在这里已经有了答案:





Matching multiple patterns

(6 个回答)


3年前关闭。




我在 R 中使用 grepl() 来搜索我的文本中是否存在以下任何一种类型。我现在正在这样做:

grepl("Action", my_text) |
grepl("Adventure", my_text) |
grepl("Animation", my_text) |
grepl("Biography", my_text) |
grepl("Comedy", my_text) |
grepl("Crime", my_text) |
grepl("Documentary", my_text) |
grepl("Drama", my_text) |
grepl("Family", my_text) |
grepl("Fantasy", my_text) |
grepl("Film-Noir", my_text) |
grepl("History", my_text) |
grepl("Horror", my_text) |
grepl("Music", my_text) |
grepl("Musical", my_text) |
grepl("Mystery", my_text) |
grepl("Romance", my_text) |
grepl("Sci-Fi", my_text) |
grepl("Sport", my_text) |
grepl("Thriller", my_text) |
grepl("War", my_text) |
grepl("Western", my_text)

有没有更好的方法来编写这段代码？我可以将所有类型放在一个数组中，然后以某种方式使用 grepl()在那？

Answer 1

您可以使用“或”将流派粘贴在一起 |分隔符并运行它 grepl作为单个正则表达式。

x <- c("Action", "Adventure", "Animation", ...)
grepl(paste(x, collapse = "|"), my_text)

这是一个例子。

x <- c("Action", "Adventure", "Animation")
my_text <- c("This one has Animation.", "This has none.", "Here is Adventure.")
grepl(paste(x, collapse = "|"), my_text)
# [1]  TRUE FALSE  TRUE