画韦恩图R包VennDiagram

install.packages("VennDiagram")

library(VennDiagram)

x <- c(1,3,5,7,9,11,17,19,21,23,25,29,31,33,37,39,41,47,49,51,57,59)

y <- c(1,3,5,7,13,17,19,21,23,25,27,29,31,33,45,47,51)

T <- venn.diagram(list(ctrl=x,wt=y),# 前面的XYZ会是图中的标注

                  filename = NULL,# 是否输出，不输出即为NULL

                  lwd=2, #虚线的粗细1-5

                  lty=2, #虚线方式1-5

                  col=c('red','green'), #虚线的颜色

                  fill=c('red','green'), #圈内填充的颜色

                  alpha=c(0.5,0.5), # 透明度0-1透明

                  cat.col=c('red','green'), #两个标注的颜色

                  reverse=T)

grid.draw(T)