韦恩图

生信喵

       韦恩图主要用于集合的计算，计算不同集合之间的交集，并集，补集等。可以绘制 2-7 个集合的运算，图形可以用圆形或者椭圆形表示。

1. library(venn)
   
2. listA <- read.csv("genes_list_A.txt",header=FALSE)
   
3. A <- listA$V1
   
4. listB <- read.csv("genes_list_B.txt",header=FALSE)
   
5. B <- listB$V1
   
6. listC <- read.csv("genes_list_C.txt",header=FALSE)
   
7. C <- listC$V1
   
8. listD <- read.csv("genes_list_D.txt",header=FALSE)
   
9. D <- listD$V1
   
10. listE <- read.csv("genes_list_E.txt",header=FALSE)
    
11. E <- listE$V1
    
12. x <- list(A,B,C,D,E)
    
13. x
    
14. venn(x)
    
15. venn(x,ellipse = T)
    
16. venn(x,ellipse = T,zcolor = 'red')
    
17. venn(x,ellipse = T,zcolor = rainbow(5))
    
18. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 1)
    
19. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 0.1)
    
20. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 0.8)#透明度
    
21. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 0.5)
    
22. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 0.5,snames = c('Sample A','Sample B','Sample C','Sample D','Sample E'))
    
23. venn(x,ellipse = T,zcolor = rainbow(5),opacity = 0.5,snames = c('Sample A','Sample B','Sample C','Sample D','Sample E'),
    
24.      col = 'red')
    
25. venn(list(A,B,D,E),ellipse = F,zcolor = rainbow(5),opacity = 0.5)
    
26. venn(list(B,D,E),ellipse = F,zcolor = rainbow(5),opacity = 0.5)
    
27. 
    
28. F =sample(C,1000)
    
29. venn(list(A,B,C,D,E,F),zcolor = rainbow(6))
    
30. G =sample(C,1000)
    
31. H =sample(C,1000)
    
32. venn(list(A,B,C,D,E,F,G),zcolor = rainbow(6))
    
33. venn(list(A,B,C,D,E,F,G,H),zcolor = rainbow(6))#画不了，只能画7个，一般5个最多了
    
34. #这个时候可以百度下花瓣图，聚焦交集。
    
35. venn(list(A,B,C,D),zcolor = rainbow(4))
    
36. h <- venn(list(A,B,C,D),zcolor = rainbow(4))
    
37. h
    
38. example(venn)

复制代码