R语言绘制韦恩图并在图上加线标识

绘制韦恩图常用的软件是VennDiagram包，可以先install.packages("VennDiagram")   【1】

library(VennDiagram)

生成几个集合并计算各个集合及其相互交集的大小：

A = 1:150

B = c(121:170,300:320)

C = c(20:40,141:200)

Length_A<-length(A)

Length_B<-length(B)

T<-venn.diagram(list(A=A,B=B),filename=NULL

,lwd=1,lty=2

,col=c('red','green'),fill=c('red','green')

,cat.col=c('red','green')

,rotation.degree=90)

grid.draw(T)

三个的可以参考引用1页面链接的内容

另外也可以利用在线软件绘制韦恩图，引用2

但是有个问题，就是这些包产生的韦恩图并不能直接操作，比如加几条线，下面就推荐利用plotrix包，来手动绘制韦恩图，并在图上加线，

plotrix包除了可以用来绘制圆，还可以用来绘制如椭圆等，具体可以参考手册

下面代码展示如下：

下面的代码用语画

a<-c(1:100)

b<-c(1:100)

install.packages("plotrix")

library(plotrix)

pdf("a.pdf")

plot(a,b,type="n")

library(plotrix)

 plot(a,b,type="n")

draw.circle(30,50,30,border="white",col=rgb(0,1,0,0.6))

 draw.circle(70,50,30,border="white",col=rgb(0,0,1,0.6))

abline(v=30,col=rgb(64/255,244/255,208/255,1))

abline(v=70,col=rgb(64/255,244/255,208/255,1))

abline(h=50,col=rgb(64/255,244/255,208/255,1)) 

dev.off()

20160131更新，最近发现一篇不做的文章，引用到第三

参考网页

[1] http://blog.sina.com.cn/s/blog_6caea8bf0101783t.html

[2]http://bioinfogp.cnb.csic.es/tools/venny/index.html    在线绘制韦恩图

[3]http://blog.163.com/zhoulili1987619@126/blog/static/353082012013821075168/