Reduce 函数
Reduce(intersect, list(v1 = c("a","b","c","d"),
v2 = c("a","b","e"),
v3 = c("a","f","g"),
v4 = c("a","f","e","g"))
)