x<-read.table("1.txt")
y<-read.table("2.txt")
a<-x$V1
b<-y$V2
venn.plot <- venn.diagram(
x = list(
"3 weeks DEGs" = a,
"4 weeks DEGs" = b
),
filename = "c:\\Venn_22set_complex.tiff",
col = "transparent",
fill = c("red", "blue"),
cex = 2,
cat.cex = 1.5,
rotation.degree = 0,
main = "",
main.cex = 2,
sub.cex = 1,
alpha = 0.50,cat.pos=c(9,12)
);

网友评论