在R中,使用以下代码很容易绘制维恩图:
library(VennDiagram)
set.seed(1) # For reproducibility of results
xx.1 <- list(A = sample(LETTERS, 15), B = sample(LETTERS, 15),
C = sample(LETTERS, 15), D = sample(LETTERS, 15))
venn.diagram(xx.1, filename ="1.tiff", height = 1000, width = 1000)
Run Code Online (Sandbox Code Playgroud)

但是我如何计算每个领域的项目?例如,我想知道A中只找到两个字母是什么?
编辑:
这是我的解决方案,它不完美,但可以给所有的交叉点.
library(reshape)
library(R.utils)
## data
A <- data.frame(names = sample(LETTERS, 15), A = 1)
B <- data.frame(names = sample(LETTERS, 15), B = 1)
C <- data.frame(names = sample(LETTERS, 15), C = 1)
D <- data.frame(names = sample(LETTERS, 15), D = 1)
## …Run Code Online (Sandbox Code Playgroud)