韦恩图-VennDiagram

library(VennDiagram)
载入需要的程辑包：grid
载入需要的程辑包：futile.logger
listA <- read.csv(“genes_list_A.txt”,header = F)
listB<- read.csv(“genes_list_B.txt”,header = F)
listC<- read.csv(“genes_list_C.txt”,header = F)
listD<- read.csv(“genes_list_D.txt”,header = F)
listE<- read.csv(“genes_list_E.txt”,header = F)
head(listA)
V1
1 ABI1
2 ABL1
3 ABL2
4 ACSL3
5 ACSL6
6 AFF1
A<- listA$V1B<-listB$V1
C<- listC$V1D<-listD$V1
E<- listE$V1
length(A);length(B);length©;length(D);length(E)
[1] 562
[1] 474
[1] 2273
[1] 1735
[1] 594
head(A)
[1] “ABI1” “ABL1” “ABL2” “ACSL3” “ACSL6” “AFF1”
venn.diagram(list(sampleC=C,sampleD=D),filename = “venn1.png”,fill=c(“yellow”,“cyan”),cex=1.5) #两个样品#
[1] 1

venn.diagram(list(sampleC=C,sampleA=A,sampleB=B,sampleD=D,sampleE=E),filename = “venn2.png”,fill=c(“yellow”,“cyan”,“red”,“green”,“blue”),cex=1.5)#设置5个样品#
[1] 1

数据
链接：https://pan.baidu.com/s/1a6wZfwTrROxFKvktNSaSZw
提取码：4wac
复制这段内容后打开百度网盘手机App，操作更方便哦