如何使用 filter 和 str_detect 将逻​​辑 AND 添加到逻辑 OR 的组合中？

Question

我有以下示例数据框“df”，其中包含文本的变量“Text”：

df:
    Text
1   I like blue shoes.
2   Black is great!
3   Pink and grey books.
4   I don't like grey trousers.
5   Yellow is my favorite colour
6   No more green!
7   Cars are red.
8   I have a pink bike

我使用以下代码过滤每个包含至少一个列出的单词的案例，效果非常好：

library(tidyverse)
library(igraph)
library(stringi)
library(stringr)

filter <- c("blue","green","yellow","red")
df2 <-
  df %>%
  filter(str_detect(tolower(df$Text), paste(filter, collapse = "|")))

df2:
    Text
1   I like blue shoes.
5   Yellow is my favorite colour
6   No mor green!
7   Cars are red.

作为附加条件，我现在想添加“粉红色”和“灰色”的组合，过滤上面列出的至少一个词或组合。我想要的数据框如下所示：

df2:
    Text
1   I like blue shoes.
3   Pink and grey books.
5   Yellow is my favorite colour
6   No mor green!
7   Cars are red.

你知道我怎么去那里吗？ 提前致谢！

Answer 1

您可以使用& 运算符来组合filter 运算（还有| OR 运算符）。

> f1
[1] "blue"   "green"  "yellow" "red"   

> f2
[1] "pink" "grey"

> df
# A tibble: 4 x 2
  Text1       Text2
  <chr>       <chr>
1 Yellow      This 
2 red         That 
3 Purple grey The  
4 green pink  other

> filter(df,  str_detect(Text1, paste0(f1, collapse = "|")))

   # A tibble: 2 x 2
   Text1      Text2
   <chr>      <chr>
  1 red        That 
  2 green pink other

> filter(df,  
str_detect(Text1, paste0(f1, collapse = "|")) & 
str_detect(Text1, paste0(f2, collapse = "|")))

  # A tibble: 1 x 2
  Text1      Text2
  <chr>      <chr>
1 green pink other

注意第二个需要两个操作。

编辑处理评论

> filter(df,  
    str_detect(Text1, paste0(f1, collapse = "|")) | 
    (str_detect(Text1, "pink") & str_detect(Text1, "grey")))

您仍然可以使用 & 或 |运算符和括号一起得到你想要的逻辑组合。