R 维恩图

1.venn.diagram

某教程
首先我们有这样四个这样格式的文件，直接用每个文件的第一列建list即可

> head(LCC1_12F,3)
  Accession LCC1_1_181894_LN02 LCC1_1_181894_LT02 LCC1_2_181978_LN03 LCC1_2_181978_LT03
1    Q9NQG7         0.16606746         -0.4909552          0.4425849        -0.28738914
2    P02656         0.94809165         -1.8689369          1.7256319         0.02948335
3    Q5ZPR3         0.07370752         -0.1352219         -0.2181421         0.04855979
  LCC1_3_182151_LN04 LCC1_3_182151_LT04 LCC1_4_182208_LN05 LCC1_4_182208_LT05 LCC1_5_182217_LN06
1          0.1847243         -0.4866967        -0.03962353        -0.02295939          0.6886061
2          0.5033485         -1.0895300         1.52802191        -0.48198807          0.1085704
3         -0.3920419          0.5827776        -0.06385980        -0.23872415          0.1273003
  LCC1_5_182217_LT06
1         -0.1543588
2         -1.4026928
3          0.2156447

出图

venn.diagram(list("LCC1_12F (7100)"=LCC1_12F[,1],"LCC1_24F (8181)"=LCC1_24F[,1],
                  "LCC2_12F (7106)"=LCC2_12F[,1],"LCC2_24F (8230)"=LCC2_24F[,1]),
             filename = './1.normalization_evaluate.bencheffect/LCC/0.data.information_proportion.bar_venn/LCC1_LCC2_12.24Faction.png',
             col = "black",
             fill = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3"),
             # LCC1_12F LCC1_24F LCC2_12F LCC2_24F
             alpha = 0.5,
             cex = 1,
             cat.col = 'black',
             cat.cex = .8,
             cat.fontface = "bold",
             margin = 0.05,
             main = "LCC1 LCC2 12/24 Fraction",
             main.cex = 2)

2.某公众号集合

3.ggVennDiagram包

genes <- paste("gene",1:1000,sep="")
set.seed(20190708)
x <- list(A=sample(genes,300),B=sample(genes,525),C=sample(genes,440),D=sample(genes,350))
library(ggVennDiagram)
ggVennDiagram(x,c("A","B","C","D"))