R список пересечений списков

Question

Предположим, что вам передан следующий кадр данных с повторным использованием следующих шагов:

df= data.frame(id1= c(1,1,1,1,1,2,2,2,2,2), name =c("a","a","b","b","c","a","a","d","d","b"), name2 = c(NA,NA,"a",NA,"c",   "d","a","b",NA,NA))
df = df %>% group_by(id1) %>% summarise(name =name %>% unique %>% toString, name2= name2%>% unique %>% toString) 
df = as.data.frame(df)
df = df %>%mutate(name = strsplit(name, ", "), name2 = strsplit(name2, ", "))

Полученный df должен использоваться для создания нового столбца, где строка за строкой получает пересечение name и name2, где в каждом ряду меня не волнует порядок элементов в name и name2

Вот то, что я пробовал , только у меня получаетсяпервый элемент однако

library(purrr)
inter = rep("", length(df$name))
for (row in c(1:length(df$name)))  {
    print(row)
    inter[[row]] = ifelse(purrr::is_empty(intersect(df$name[[row]],df$name2[[row]])),
                    NA,intersect(df$name[[row]],df$name2[[row]]))
}

Answer 1

Один из вариантов - map2 для циклического перебора соответствующих list s ('name', 'name2') и получения элемента intersect в новом столбце list

library(tidyverse)
df %>%
    mutate(newCol = map2(name, name2, intersect))