韦恩图(Venn)绘制

维恩图经常用于展示不同的事物群组（集合）之间的数学或逻辑联系，尤其适用于直观展示集合（或）类之间的“大致关系”。今天给大家展示一下，如何绘制一幅漂亮的Venn图。

一、前期准备

今天我们使用ggvenn包，来绘制Venn图

install.packages("ggvenn")#安装包
library("ggvenn")#读入包

二、载入路径

​setwd("D:/生信小书生/R语言绘图/2021-1-21韦恩图")#载入当前路径

三、读入数据

​data1<-read.delim("venn_1.txt",header = T,stringsAsFactors = F) #读入数据
data1 #查看data​1数据

image

data2<-read.delim("venn_2.txt",header = T,stringsAsFactors = F)
data2

image

data3和data4类似data1和data2，这里就不在展示

data3<-read.delim("venn_3.txt",header = T,stringsAsFactors = F)
data4<-read.delim("venn_4.txt",header = T,stringsAsFactors = F)

四、绘图

然后，我们将数据呈现成列表形式

x<-list(A=data1$A,B=data2$B,C=data3$C,D=data4$D)x #展示X数据

image

按照ggvenn函数的绘图方式绘图，不知道如何使用，请用？ggvenn帮助

?ggvenn
ggvenn(x,c("A","B","C","D"),       
             fill_color = c("blue", "yellow", "green", "red"))#填充颜色

image

使用ggvenn包中的其他参数微调之后

ggvenn(x,c("A","B","C","D"),      
       fill_color = c("blue", "yellow", "green", "red"),#填充颜色      
       fill_alpha = 0.3,#改变图形透明度       
       stroke_color="black",#边界线的颜色       
       stroke_alpha = 0.5,#边界线的透明度       
       stroke_linetype="dashed",#将边界线转化为虚线       
       text_size = 4)#调节字体大小

image

欢迎关注微信公众号“生信小书生”，免费领取操作数据