R语言用venn包绘制韦恩图

library(venn)
#设置种子
set.seed(123)
#生成数据
SNP_pop_1=paste(rep("SNP_" , 200) , sample(c(1:1000) , 200 ,
replace=F) , sep="")
SNP_pop_2=paste(rep("SNP_" , 200) , sample(c(1:1000) , 200 ,
replace=F) , sep="")
SNP_pop_3=paste(rep("SNP_" , 200) , sample(c(1:1000) , 200 ,
replace=F) , sep="")
SNP_pop_4=paste(rep("SNP_" , 200) , sample(c(1:1000) , 200 ,
replace=F) , sep="")
x = list(SNP_pop_1, SNP_pop_2, SNP_pop_3, SNP_pop_4)
#绘制韦恩图
venn(x, snames = c("SNP_1","SNP_2","SNP_3","SNP_4"))
#设置不同的形状
venn(x, snames = c("SNP_1","SNP_2","SNP_3","SNP_4"),zcolor =
"style", ellipse = T)