首先，调用包。

library(VennDiagram)

然后写代码。

venn.plot <- draw.pairwise.venn(
area1 = 100, #第一个集大小
area2 = 70, #第二个集大小
cross.area = 68, #两个集的交集大小
category = c("First", "Second"), #两个集命名
fill = c("blue", "yellow"), #集对应的圈填充颜色
lty = "blank", #圆周的线条类型
cex = 1, #韦恩图各部分面积标签注释字体大小
cat.cex = 3, #集名字体大小
cat.pos = c(180, 0), #集标签围绕圆的相对位置，0-360°，默认0°在12点钟方向
cat.dist = c(0.03,0.06), #集标签相对于圆位置远近
cat.just = list(c(0, 0), c(0, 0)),
ext.pos = 0, #圈外面积标签位置
ext.dist = -0.05,
ext.length = 0.85, #圈外面积标签连接线长度
ext.line.lwd = 2,
ext.line.lty = "dashed", #圈外面积标签连接线类型
alpha=0.3,
euler.d=T #没有交集，是否分开
);

tiff(filename = "Pairwise_Venn_diagram.tiff");
grid.draw(venn.plot);
dev.off()

画出来的图就是酱婶儿的