這篇文章給大家介紹R-VennDiagram包怎樣繪制韋恩圖，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。
網(wǎng)站設(shè)計(jì)制作過(guò)程拒絕使用模板建站；使用PHP+MYSQL原生開(kāi)發(fā)可交付網(wǎng)站源代碼;符合網(wǎng)站優(yōu)化排名的后臺(tái)管理系統(tǒng)；做網(wǎng)站、成都做網(wǎng)站收費(fèi)合理；免費(fèi)進(jìn)行網(wǎng)站備案等企業(yè)網(wǎng)站建設(shè)一條龍服務(wù).我們是一家持續(xù)穩(wěn)定運(yùn)營(yíng)了十余年的成都創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司。
在得到數(shù)據(jù)之后，我們經(jīng)常會(huì)用到維恩圖來(lái)展示各個(gè)數(shù)據(jù)集之間的重疊關(guān)系。下面簡(jiǎn)單的介紹R語(yǔ)言中的VennDiagram包繪制數(shù)據(jù)集的維恩圖。
一 需要安裝和導(dǎo)入的包
重慶分公司
重慶分公司
install.packages("VennDiagram")library(grid)library(VennDiagram) 二 使用函數(shù)及參數(shù)
所有參數(shù)說(shuō)明詳見(jiàn)https://cran.r-project.org/web/packages/VennDiagram/VennDiagram.pdf，
可以看到參數(shù)有很多，不用擔(dān)心，下文的例子會(huì)給出常用的調(diào)整參數(shù)以及說(shuō)明。
三 知道各個(gè)數(shù)據(jù)集的個(gè)數(shù)以及重疊（交叉）的個(gè)數(shù)
2.1 兩個(gè)已知數(shù)據(jù)集的韋恩圖
# 圓的大小不會(huì)根據(jù)數(shù)據(jù)量多少改變venn.plot <- draw.pairwise.venn(80, 30, 10, c("First", "Second"), scaled =FALSE)grid.draw(venn.plot) 
# 圓的大小根據(jù)數(shù)據(jù)量多少改變
venn.plot <- draw.pairwise.venn(80, 30, 10, c("First", "Second"))
grid.draw(venn.plot)
#調(diào)整參數(shù)進(jìn)行圖形優(yōu)化
venn.plot <- draw.pairwise.venn( area1 = 80, #區(qū)域1的數(shù) area2 = 30, #區(qū)域2的數(shù) cross.area = 2, #重疊的個(gè)數(shù) category = c("First", "Second"),#分類命名fill = c("blue", "red"),#1 2 區(qū)域分別的填充顏色 lty = "blank", #1 2 區(qū)域的邊框線類型 cex = 2, #1 2 區(qū)域內(nèi)部數(shù)字的字體大小 cat.cex = 2, # 分類名稱的字體大小 cat.dist = 0.09, #分類名稱距離邊的距離 實(shí)際調(diào)整 cat.just = list(c(-1, -1), c(1, 1)), #分類名稱的位置 ，圈內(nèi)或者圈外ext.pos = 30, #線的角度 默認(rèn)是正上方12點(diǎn)位置 ext.dist = -0.05, #外部線的距離 跟根據(jù)圓圈的大小適當(dāng)調(diào)整ext.length = 0.85, #外部線長(zhǎng)度 ext.line.lwd = 2, #外部線的寬度 ext.line.lty = "dashed" ) #外部線為虛線);grid.draw(venn.plot) 
2.2 三個(gè)已知數(shù)據(jù)集的韋恩圖
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) 四 根據(jù)數(shù)據(jù)集合繪制韋恩圖
4.1 四個(gè)數(shù)據(jù)集合
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, #每個(gè)區(qū)域label名稱的大小cat.col = c("darkblue", "darkgreen", "orange", "grey50"), #分類顏色cat.cex = 1.2, #每個(gè)分類名稱大小cat.dist = 0.07, cat.pos = 0, #cat.fontfamily = "serif", #分類字體rotation.degree = 270, #旋轉(zhuǎn)角度margin = 0.2 ) 
4.2 五個(gè)數(shù)據(jù)集合
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); 
VennDiagram函數(shù)包最大能繪制5個(gè)數(shù)據(jù)集合的韋恩圖，可以看到已經(jīng)有點(diǎn)亂了，當(dāng)更多集合的時(shí)候，可以使用R|UpSet-集合可視化進(jìn)行繪制。
關(guān)于R-VennDiagram包怎樣繪制韋恩圖就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。
