¿Cómo encontrar elementos comunes en al menos 2 vectores?

Digamos que tengo 5 vectores:

a <- c(1,2,3)
b <- c(2,3,4)
c <- c(1,2,5,8)
d <- c(2,3,4,6)
e <- c(2,7,8,9)

Sé que puedo calcular la intersección entre todos usandoReduce() Juntos conintersect(), Me gusta esto:

Reduce(intersect, list(a, b, c, d, e))
[1] 2

Pero, ¿cómo puedo encontrar elementos que sean comunes en, digamos, al menos 2 vectores? es decir.:

[1] 1 2 3 4 8

Respuestas a la pregunta(6)

Su respuesta a la pregunta