R語(yǔ)言繪圖學(xué)習(xí)教程VennDiagram繪制venn
更新時(shí)間：2022年06月24日 09:48:17 作者：小白菜學(xué)生信
這篇文章主要為大家介紹了R語(yǔ)言繪圖學(xué)習(xí)教程VennDiagram繪制venn的示例詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪
導(dǎo)讀
使用VennDiagram函數(shù)包中的venn.diagram函數(shù)繪制三數(shù)據(jù)集venn圖。
安裝依賴包：
# venn圖
install.packages("VennDiagram")
library(VennDiagram)
一、模擬輸入
產(chǎn)生3個(gè)含200字符串的數(shù)據(jù)集
set1 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
set2 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
set3 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
set4 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
set5 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
sample(x, size, replace=F) # 不放回抽樣
二、venn基礎(chǔ)圖
1 兩個(gè)圈
venn.diagram(
x = list(set1, set2),
category.names = c("Set 1" , "Set 2 "),
filename = 'venn.png',
output=TRUE
)
2 三個(gè)圈
venn.diagram(
x = list(set1, set2, set3),
category.names = c("Set 1" , "Set 2 " , "Set 3"),
filename = 'venn.png',
output=TRUE
)
3 四個(gè)圈
venn.diagram(
x = list(set1, set2, set3, set4),
category.names = c("Set 1" , "Set 2 " , "Set 3", "Set 4"),
filename = 'venn.png',
output=TRUE
)
4 五個(gè)圈
venn.diagram(
x = list(set1, set2, set3, set4, set5),
category.names = c("Set 1" , "Set 2 " , "Set 3", "Set 4", "Set 5"),
filename = 'venn.png',
output=TRUE
)
三、個(gè)性化參數(shù)調(diào)整
library(RColorBrewer)
color <- brewer.pal(3, "Set3")
# Chart
venn.diagram(
x = list(set1, set2, set3),
category.names = c("Set 1" , "Set 2 " , "Set 3"),
filename = 'venn2.png',
output=TRUE,
# 輸出
imagetype="png" , # 類型（tiff png svg）
#height = 1000 , # 高度
#width = 1000 , # 寬度
resolution = 400, # 分辨率
compression = "lzw", # 壓縮算法
# 圈
lwd = 5, # 圈線條粗細(xì) 1 2 3 4 5
lty = 1, # 線條類型, 1 實(shí)線, 2 虛線, blank 無(wú)線條
fill = color, # 填充色
col = c("red", 'green', 'blue'), # 線條色
# 數(shù)字 number
cex = 2, # 數(shù)字大小
fontface = "bold", # 加粗
fontfamily = "sans", # 字體
# 標(biāo)簽 category
cat.cex = 2, # 字體大小
cat.col = c("red", 'green', 'blue'), # 字體色
cat.fontface = "bold", # 加粗
cat.default.pos = "outer", # 位置, outer 內(nèi) text 外
cat.pos = c(-27, 27, 135), # 位置，用圓的度數(shù)
cat.dist = c(0.055, 0.055, 0.085), # 位置，離圓的距離
cat.fontfamily = "sans", # 字體
rotation = 1 # 1 2 3 旋轉(zhuǎn)確定大打頭數(shù)據(jù)集
)
四、保存
1 繪圖待保存
library(RColorBrewer)
p = venn.diagram(
x = list(set1, set2, set3, set4, set5),
category.names = c("Set 1" , "Set 2 " , "Set 3", "Set 4", "Set 5"),
# filename = 'venn.png',
filename = NULL,
output=TRUE,
fill = brewer.pal(5, "Set2"),
col = brewer.pal(5, "Set3"),
fontface = "bold",
cat.col = brewer.pal(5, "Set3"),
cat.fontface = "bold"
)
2 保存為PDF
pdf("venn-pdf.pdf")
grid.draw(p)
dev.off()
3 保存為PNG
png("venn-png.png")
grid.draw(p)
dev.off()
更多參數(shù)：
col = NA # 邊框設(shè)為無(wú)色
參考：
https://r-graph-gallery.com/venn-diagram.html
venn網(wǎng)頁(yè)工具：
http://bioinformatics.psb.ugent.be/webtools/Venn/
enn.diagram函數(shù)文檔:
https://www.rdocumentation.org/packages/VennDiagram/versions/1.6.20/topics/venn.diagram
以上就是R語(yǔ)言繪圖學(xué)習(xí)教程VennDiagram繪制venn的詳細(xì)內(nèi)容，更多關(guān)于R語(yǔ)言VennDiagram繪制venn的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章！
相關(guān)文章
R語(yǔ)言實(shí)現(xiàn)操作MySQL數(shù)據(jù)庫(kù)
這篇文章主要介紹了R語(yǔ)言實(shí)現(xiàn)操作MySQL數(shù)據(jù)庫(kù)，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
EBImage是R的一個(gè)擴(kuò)展包，提供了用于讀取、寫(xiě)入、處理和分析圖像的通用功能，非常容易上手，本文給大家介紹下R語(yǔ)言圖像處理EBImage包的相關(guān)知識(shí)，感興趣的朋友一起看看吧2022-02-02
R語(yǔ)言關(guān)于數(shù)據(jù)幀的知識(shí)點(diǎn)詳解
在本篇文章里小編給大家整理的是一篇關(guān)于R語(yǔ)言關(guān)于數(shù)據(jù)幀的知識(shí)點(diǎn)詳解內(nèi)容，有興趣的朋友們可以學(xué)習(xí)下。2021-04-04
這篇文章主要介紹了利用R語(yǔ)言測(cè)試電腦的性能如何,通過(guò)矩陣的運(yùn)算來(lái)計(jì)算，本文通過(guò)代碼講解的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-04-04
解決R語(yǔ)言報(bào)錯(cuò):Error?in?y?+?1:non-numeric?argument?to?binary
R語(yǔ)言編程中的常見(jiàn)錯(cuò)誤有一些錯(cuò)誤是R的初學(xué)者和經(jīng)驗(yàn)豐富的R程序員都可能常犯的,下面這篇文章主要給大家介紹了關(guān)于解決R語(yǔ)言報(bào)錯(cuò):Error?in?y?+?1:non-numeric?argument?to?binary?operator的相關(guān)資料,需要的朋友可以參考下2022-11-11
R語(yǔ)言 小數(shù)點(diǎn)位數(shù)的設(shè)置方式
這篇文章主要介紹了R語(yǔ)言 小數(shù)點(diǎn)位數(shù)的設(shè)置方式，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-03-03
這篇文章主要為大家講解介紹了R語(yǔ)言學(xué)習(xí)中代碼格式一鍵美化的實(shí)現(xiàn)過(guò)程步驟，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步2021-11-11
R語(yǔ)言關(guān)于隨機(jī)森林算法的知識(shí)點(diǎn)詳解
在本篇文章里小編給大家整理的是一篇關(guān)于R語(yǔ)言關(guān)于隨機(jī)森林算法的知識(shí)點(diǎn)詳解內(nèi)容，有興趣的朋友們可以跟著學(xué)習(xí)下。2021-05-05
R語(yǔ)言數(shù)值取消科學(xué)計(jì)數(shù)法表示的操作
這篇文章主要介紹了R語(yǔ)言數(shù)值取消科學(xué)計(jì)數(shù)法表示的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2021-04-04
基于R語(yǔ)言?數(shù)據(jù)檢驗(yàn)詳解
這篇文章主要介紹了R語(yǔ)言數(shù)據(jù)檢驗(yàn)的相關(guān)知識(shí)，本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2022-03-03