1.venn.diagram
某教程
首先我们有这样四个这样格式的文件，直接用每个文件的第一列建list即可
> head(LCC1_12F,3) Accession LCC1_1_181894_LN02 LCC1_1_181894_LT02 LCC1_2_181978_LN03 LCC1_2_181978_LT031 Q9NQG7 0.16606746 -0.4909552 0.4425849 -0.287389142 P02656 0.94809165 -1.8689369 1.7256319 0.029483353 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_LN061 0.1847243 -0.4866967 -0.03962353 -0.02295939 0.68860612 0.5033485 -1.0895300 1.52802191 -0.48198807 0.10857043 -0.3920419 0.5827776 -0.06385980 -0.23872415 0.1273003 LCC1_5_182217_LT061 -0.15435882 -1.40269283 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”))
