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')