很多在线的工具画维恩图很方便，比如(http://bioinfogp.cnb.csic.es/tools/venny/index.html)。

但是在线工具不能修改颜色和线条，画出的图千篇一律。用R的包画韦恩图就可以随心所欲了，4个数据集以下可以用ggVennDiagram包，4个以上的数据集建议用upSetR包。

简要介绍以下这个包的使用

1、先安装包

install.packages("ggVennDiagram")

# install.packages("devtools")
devtools::install_github("gaospecial/ggVennDiagram")

2、下面就可以愉快的画图了

library(ggVennDiagram)
genes <- paste("gene",1:1000,sep="") #建立模拟数据
set.seed(20190708)
x <- list(A=sample(genes,300),B=sample(genes,525),C=sample(genes,440),D=sample(genes,350))

# 4维维恩图
ggVennDiagram(x)

image.png

2维维恩图

ggVennDiagram(x[1:2])

image.png

3、用ggplot2改颜色

library(ggplot2)
ggVennDiagram(x) + scale_fill_gradient(low="blue",high = "red")

image.png

ggVennDiagram(x,lty="dashed",color="black",size=2) + scale_fill_gradient(low="white",high = "red")

image.png

4、设定各个分类的名称

ggVennDiagram(x,category.names = c("Stage 1","Stage 2","Stage 3", "Stage4"))

image.png

5、只显示计数，不显示百分比

 ggVennDiagram(x,label="count")

image.png