如何过滤嵌套数据

Question

如何过滤嵌套的数据集（确保巢与某些参考向量或tibble完全相同）？

library(tidyverse)

rev_vec <-  c("apple", "pear", "banana")

df <- tibble(
  ID= rep(1:3, each =3),
  fruits =  c("apple", "pear", "banana", 
              "Pineapple", "Pineapple", "orange",
              "lime", "pear", NA))

df_vec <- df %>% 
  group_by(ID) %>% 
  summarise(fruits  = list(unique(fruits)))

## This does not work
df_vec %>% 
  filter(fruits == rev_vec)

## This does not work
df_vec %>% 
  filter(unlist(fruits) == rev_vec)

## This does not work
df_vec %>% 
  filter(all(unlist(fruits[[1]]) ==rev_vec))

基本上，我只需要知道哪个ID（在这种情况下1）匹配参考向量

预期结果

ID 1与Rev Vec匹配。

df_vec %>%
   filter(....)

# A tibble: 1 x 2
     ID fruits   
  <int> <list>   
1     1 <chr [3]>

Answer 1

df_vec %>% 
    filter(map_lgl(fruits, ~setequal(., rev_vec)))

# A tibble: 1 x 2
     ID fruits   
  <int> <list>   
1     1 <chr [3]>

Answer 2

不确定您希望输出结构化，但这是

library(dplyr)

df %>% 
 group_by(ID) %>% 
 mutate(new = sum(fruits %in% rev_vec) == n())

# A tibble: 9 x 3
# Groups:   ID [3]
     ID fruits    new  
  <int> <chr>     <lgl>
1     1 apple     TRUE 
2     1 pear      TRUE 
3     1 banana    TRUE 
4     2 Pineapple FALSE
5     2 Pineapple FALSE
6     2 orange    FALSE
7     3 lime      FALSE
8     3 pear      FALSE
9     3 NA        FALSE

另一个想法，

df %>% 
 group_by(ID) %>% 
 mutate(new = sum(fruits %in% rev_vec) == n()) %>% 
 filter(new) %>% 
 nest()

# A tibble: 1 x 2
# Groups:   ID [1]
     ID data            
  <int> <list>          
1     1 <tibble [3 x 2]>

Answer 3

也许您可以尝试使用相同的来查看每个iD> ID的水果是否与参考向量完全相同。

library(tidyverse)

df %>%
  group_by(ID) %>%
  filter(identical(fruits, rev_vec))

输出

     ID fruits
  <int> <chr> 
1     1 apple 
2     1 pear  
3     1 banana