Выберите общий элемент из списка векторов символов

Question

Я хочу найти общие символы из списка векторов символов.Ниже приведен пример, с помощью которого можно решить проблему.Но у меня есть список из 100 векторов символов, и я хочу использовать цикл для итерации по циклу и получения элементов общего символа

ab <- c ("a", "b", "c", "g")
cd <- c("a" ,"d", "c", "e", "f")
ef <- c("a", "c", "i", "r", "t")
dat <- list(ab,cd,ef)

Reduce(intersect, dat)
[1] "a" "c"

Редактировать: Моя проблема в том, что у меня большой список свекторы символов вложены в него.по этой причине я хочу использовать цикл for для итерации по списку и поиска общих элементов по символьным векторам.

Я пробовал что-то подобное, показанное ниже, но я не получаю никакого вывода

for (i in 1: seq_along(dat))
{
   op <- Reduce(intersect, dat[[i]])
}

Answer 1

Следующий код может быть использован для решения проблемы с помощью цикла for:

ab <- c ("a", "b", "c", "g")
cd <- c("a" ,"d", "c", "e", "f")
ef <- c("a", "c", "i", "r", "t")
dat <- list(ab,cd,ef)

op <- vector()
for (i in seq_along(dat)) 
{
  op[i] <- list(dat[[i]])  
}
op.final <- Reduce(intersect, op)