第R語言繪圖學(xué)習(xí)教程VennDiagram繪制venn目錄導(dǎo)讀一、模擬輸入二、venn基礎(chǔ)圖三、個性化參數(shù)調(diào)整四、保存

導(dǎo)讀

使用VennDiagram函數(shù)包中的venn.diagram函數(shù)繪制三數(shù)據(jù)集venn圖。

安裝依賴包：

#venn圖

install.packages("VennDiagram")

library(VennDiagram)

一、模擬輸入

產(chǎn)生3個含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兩個圈

venn.diagram(

x=list(set1,set2),

s=c("Set1","Set2"),

filename='venn.png',

output=TRUE

2三個圈

venn.diagram(

x=list(set1,set2,set3),

s=c("Set1","Set2","Set3"),

filename='venn.png',

output=TRUE

3四個圈

venn.diagram(

x=list(set1,set2,set3,set4),

s=c("Set1","Set2","Set3","Set4"),

filename='venn.png',

output=TRUE

4五個圈

venn.diagram(

x=list(set1,set2,set3,set4,set5),

s=c("Set1","Set2","Set3","Set4","Set5"),

filename='venn.png',

output=TRUE

三、個性化參數(shù)調(diào)整

library(RColorBrewer)

color-brewer.pal(3,"Set3")

#Chart

venn.diagram(

x=list(set1,set2,set3),

s=c("Set1","Set2","Set3"),

filename='venn2.png',

output=TRUE,

#輸出

imagetype="png",#類型（tiffpngsvg）

#height=1000,#高度

#width=1000,#寬度

resolution=400,#分辨率

compression="lzw",#壓縮算法

lwd=5,#圈線條粗細(xì)12345

lty=1,#線條類型,1實線,2虛線,blank無線條

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#123旋轉(zhuǎn)確定大打頭數(shù)據(jù)集

四、保存

1繪圖待保存

library(RColorBrewer)

p=venn.diagram(

x=list(set1,set2,set3,set4,set5),

s=c("Set1","Set2","Set3","Set4","Set5"),

#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è)為無色

參考：

/venn-diagram.html

venn網(wǎng)頁工具：

http://bioinformatics.psb.ugent.be/webtools/Venn/

enn.diag