在找到这种图R中的绘制工具之前，我并不知道这种图在英文世界中的名字。但这种图的作用是显而易见的。比如，我们经常会在各个领域遇到不同组分间共有的某种特征的多少，不可避免的我们要试图把这种关系图形化。
在R中，这个功能是在Vennerable 包中实现的。这个包中有详细的说明和指南，请大家参阅。
下面举个简单的例子。有三个人（P.d, P.y. P.t）,分别各自独有（8，9，6）本书，同时P.d和P.y共有3本书，并且P.d与P.t共有3本书，而P.y和P.t之间没有共有的图书。这种关系可以用图形展示出来。
R code如下：
#需事先安装vennerable package
#调用vennerable package
library(Vennerable)
#可改变这个语句，满足你的要求。
Hap.ven<- Venn(SetNames = c("P.d", "P.t", "P.y"), Weight = c(0, 8, 6, 3, 9, 3, 0, 0))
#两种直观的做图。
plot(Hap.ven, doWeights = FALSE)
plot(Hap.ven, doWeights = TRUE)
# 下面产生一个包含了几种做图的.pdf文档。
pdf("happlot.pdf")
plot(Hap.ven, doWeights = TRUE)
plot(Hap.ven, doWeights = FALSE, doEuler=TRUE)
plot(Hap.ven, doWeights = FALSE, type="squares")
plot(Hap.ven, doWeights = FALSE, type="ChowRuskey")
plot(Hap.ven, doWeights = FALSE, type="triangles")
plot(Hap.ven, doWeights = FALSE, type="AWFE")
dev.off()
