测量集重叠向量的维恩图

要计算两个集合中有多少个元素重叠，可以编写一个自定义函数：

xtab_set <- function(A, B){
    both    <-  union(A, B)
    inA     <-  both %in% A
    inB     <-  both %in% B
    return(table(inA, inB))
}

A = 1:20
B = 10:30

xtab_set(A, B)

#        inB
# inA     FALSE TRUE
#   FALSE     0   10
#   TRUE      9   11

由各种包提供的维恩图可用于可视化多个集合的重叠计数。