韦恩图-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 V 1 B < − l i s t B V1 B<- listB V1B<−listBV1
C<- listC V 1 D < − l i s t D V1 D<- listD V1D<−listDV1
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,操作更方便哦
标签:1.5,sampleC,VennDiagram,list,韦恩图,length,sampleD,ABL1 来源: https://blog.csdn.net/ziixiaoshenwang/article/details/113483015