R dplyr。过滤包含一列数字向量的数据帧

Question

我有一个数据帧，其中一列包含数字向量。我想根据涉及该列的条件过滤行。这是一个简单的例子。

df <- data.frame(id = LETTERS[1:3], name=c("Alice", "Bob", "Carol")) 
mylist=list(c(1,2,3), c(4,5), c(1,3,4)) 
df$numvecs <- mylist 
df 
# id name numvecs 
# 1 A Alice 1, 2, 3 
# 2 B Bob 4, 5 
# 3 C Carol 1, 3, 4 

我可以使用像mapply，

mapply(function(x,y) x=="B" & 4 %in% y, df$id, df$numvecs) 

其正确第二行返回TRUE，而假的行1和2

不过，我有原因，我想使用dplyr过滤器，而不是mapply，但我可以”让dplyr过滤器在numvecs列上正常运行。而不是返回两行，以下内容不返回任何行。

filter(df, 4 %in% numvecs) 
# [1] id  numvecs 
# <0 rows> (or 0-length row.names) 

我在这里错过了什么？如何过滤涉及numvecs列的条件表达式？

理想情况下，我也想使用非标准评估filter_，所以我可以将过滤条件作为参数传递。任何帮助赞赏。谢谢。

Answer 1

您可以在numvecs列中使用sapply并创建子集逻辑矢量：

library(dplyr) 
filter(df, sapply(numvecs, function(vec) 4 %in% vec), id == "B") 
# id name numvecs 
# 1 B Bob 4, 5 

filter(df, sapply(numvecs, function(vec) 4 %in% vec)) 
# id name numvecs 
# 1 B Bob 4, 5 
# 2 C Carol 1, 3, 4 

Answer 2

我们仍然可以使用mapply与filter

filter(df, mapply(function(x,y) x == "B" & 4 %in% y, id, numvecs)) 
# id name numvecs 
#1 B Bob 4, 5 

---

或者使用map从purrr

library(purrr) 
filter(df, unlist(map(numvecs, ~4 %in% .x))) 
# id name numvecs 
#1 B Bob 4, 5 
#2 C Carol 1, 3, 4 

或者还可以做到这一点在链

df %>% 
    .$numvecs %>% 
    map(~ 4 %in% .x) %>% 
    unlist %>% 
    df[.,] 
# id name numvecs 
#2 B Bob 4, 5 
#3 C Carol 1, 3, 4