R-VennDiagram包怎樣繪制韋恩圖

install.packages("VennDiagram")library(grid)library(VennDiagram)

# 圓的大小不會根據(jù)數(shù)據(jù)量多少改變venn.plot <- draw.pairwise.venn(80, 30, 10, c("First", "Second"), scaled =FALSE)grid.draw(venn.plot)

venn.plot <- draw.pairwise.venn(  area1 = 80,  #區(qū)域1的數(shù) area2 = 30,   #區(qū)域2的數(shù) cross.area = 2,  #重疊的個數(shù) category = c("First", "Second"),#分類命名fill = c("blue", "red"),#1 2 區(qū)域分別的填充顏色 lty = "blank",  #1 2 區(qū)域的邊框線類型 cex = 2,        #1 2 區(qū)域內部數(shù)字的字體大小 cat.cex = 2,    # 分類名稱的字體大小 cat.dist = 0.09,   #分類名稱距離邊的距離 實際調整 cat.just = list(c(-1, -1), c(1, 1)),  #分類名稱的位置  ，圈內或者圈外ext.pos = 30,  #線的角度 默認是正上方12點位置 ext.dist = -0.05,   #外部線的距離  跟根據(jù)圓圈的大小適當調整ext.length = 0.85,  #外部線長度 ext.line.lwd = 2,  #外部線的寬度 ext.line.lty = "dashed" )  #外部線為虛線);grid.draw(venn.plot)

venn.plot <- draw.triple.venn(area1 = 80,area2 = 70,area3 = 50,n12 = 38,n23 = 18,n13 = 28,n123 = 8,category = c("First", "Second", "Third"),fill = c("blue", "red", "green"),lty = "blank",cex = 2,cat.cex = 2,cat.col = c("blue", "red", "green"))grid.draw(venn.plot)

A <- sample(1:1000, 500, replace = FALSE);B <- sample(1:1000, 600, replace = FALSE);C <- sample(1:1000, 700, replace = FALSE);D <- sample(1:1000, 800, replace = FALSE);E <- sample(1:1000, 900, replace = FALSE);venn.plot <- venn.diagram(#數(shù)據(jù)列表x = list(A = A,B = B,C = C,D = D),filename = "Venn_4set.tiff",    #保存路徑col = "transparent",      #指定圖形的圓周邊緣顏色  transparent 透明          fill = c("blue", "green", "yellow", "grey50"),  #填充顏色alpha = 0.50,     #透明度label.col = c("orange", "white", "grey50", "white","white", "white", "white", "white", "darkblue", "white","white", "white", "white", "darkgreen", "white"),cex = 1.2,    #每個區(qū)域label名稱的大小cat.col = c("darkblue", "darkgreen", "orange", "grey50"),  #分類顏色cat.cex = 1.2,      #每個分類名稱大小cat.dist = 0.07,   cat.pos = 0,        #cat.fontfamily = "serif",     #分類字體rotation.degree = 270,        #旋轉角度margin = 0.2 )

venn.plot <- venn.diagram( x = list(    A = A,    B = B,    C = C,    D = D,    E = E  ), filename = "Venn_5set.tiff", col = "black", fill = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3"), alpha = 0.50, cat.col = c("darkblue", "darkgreen", "orange", "grey50","purple"), cat.cex = 1.5, cat.fontface = "bold", margin = 0.05);