r - 如何将字符向量与 R 中 tibble 中的字符向量列表进行匹配？

Question

我想将 tibble 中的 A 列与 B 列进行比较，以查看 A 列中的元素是否存在于 B 列中。A 列是字符向量。 B 列是字符向量列表。我想逐行执行此操作。我可以用循环来做到这一点。

library(tidyverse)

my.tibble = c('a','b','c') %>% tibble
my.list = list(c('a','b'),c('b','c'),c('d','e'))
my.tibble = my.tibble %>% add_column(my.list)

its.in.it = as.list(NULL)
for (i in 1:nrow(my.tibble)){
    its.in.it[[i]] = my.tibble[i,1] %in% unlist(my.tibble[i,2])
}

my.tibble$its.in.it = unlist(its.in.it)
my.tibble

我正在尝试使用 dplyr/purrr 或 apply 来执行此操作。我不确定是否应该分组、嵌套或拆分，并且有很多组合。

Answer 1

您可以使用map2_lgl，它接受两个输入，循环它们并返回一个逻辑向量。

names(my.tibble) <- c("char", "char.list")
my.tibble %>% 
  mutate(its.in.it = map2_lgl(char, char.list, ~ .x %in% .y))

# A tibble: 3 x 3
#   char  char.list its.in.it
#   <chr> <list>    <lgl>    
# 1 a     <chr [2]> TRUE     
# 2 b     <chr [2]> TRUE     
# 3 c     <chr [2]> FALSE