根据R数据框中缺少一个单词删除行

Question

我有一个包含文本和作者的数据框。我只需要清理一个因子级别的数据，以保留存在一个单词的所有行。这是一个小例子：

author(factor)   text

John             Pear Plum

Mary             Pear Apple Banana Grapes

Mike             Grapes Apple Peach

John             Banana Pear Apple

John             Apple Melon 

这是我想要获得的结果，删除 John 没有提到 Apple 一词的每一行：

author(factor)   text

Mary             Pear Apple Banana Grapes

Mike             Grapes Apple Peach

John             Banana Pear Apple

John             Apple Melon 

这是我尝试过的：

df$author%in% "John"[!grepl("Apple", df$text, ignore.case = T),,drop = FALSE]

作为回应，我收到一条错误消息：

  Error in "John"[!grepl("Apple", df$text, ignore.case = T),  : 
  incorrect number of dimensions

我查看了有关子集数据的建议，但找不到与我的情况相似的任何内容。任何帮助表示赞赏。

Answer 1

这行得通吗：

library(dplyr)
library(stringr)
df %>% filter(!(author == 'John' & !str_detect(text, 'Apple')))
# A tibble: 4 x 2
  author text                    
  <chr>  <chr>                   
1 Mary   Pear Apple Banana Grapes
2 Mike   Grapes Apple Peach      
3 John   Banana Pear Apple       
4 John   Apple Melon        

使用的数据：

df
# A tibble: 5 x 2
  author text                    
  <chr>  <chr>                   
1 John   Pear Plum               
2 Mary   Pear Apple Banana Grapes
3 Mike   Grapes Apple Peach      
4 John   Banana Pear Apple       
5 John   Apple Melon