r 从多个向量中提取集合。

Posted 2021-05-24

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

intersect_all <- function(...) Reduce(intersect, list(...))
union_all <- function(...) Reduce(union, list(...))

intersect_all(a, b, c)
# [1] 3 9
union_all(a, b, c)
# [1]  1  3  5  7  9  6  8 10  2  4