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

Question

Есть ли функция, которая получает список x и возвращает список y такой, что y[[i]] = intersect(x[[1]][[i]], x[[2]][[i]], ...)?

Если нет, есть ли способ R закодировать его в пару строк?

Answer 1

Это работает?

x <- list(list(1:3,2:4),list(2:3,4:5),list(3:7,4:5))
maxlen <- max(sapply(x,length))
lapply(seq(maxlen),function(i) Reduce(intersect,lapply(x,"[[",i)))

(intersect принимает только два аргумента, поэтому вы должны использовать Reduce в качестве дополнительного шага)

PS Я не пробовал этов любых тяжелых случаях - например, списки неравной длины.

Answer 2

Кажется, Reduce можно просто использовать следующим образом:

> Reduce(intersect,  list(v1 = c("a","b","c","d"), 
+                         v2 = c("a","b","e"), 
+                         v3 = c("a","f","g"))) 
[1] "a"