múltiples intersectas r

# pay attention to use Reduce not reduce
Reduce(intersect, list(a,b,c))
Trustworthy Whale