R语言绘图:韦恩图

韦恩分析

韦恩分析(Venn Analysis)常用于可视化不同数据集之间的交集和并集。维恩图(Venn diagram),也叫文氏图、温氏图、韦恩图、范氏图,用于显示元素集合重叠区域的关系型图表,通过图形与图形之间的层叠关系,来反应数据集之间的相交关系。在 R 语言中,进行韦恩分析(Venn图绘制)可以通过多个不同的包来实现,常用的包括 VennDiagram、venn 和 ggVenn 等。本文案使用ggVenn软件包进行分析。

效果图:

代码:

####Venn分析####

#上调基因的交集

####机器学习重要性排序的Venn分析####

setwd("...")

remove(list = ls())#清除环境变量

#install.packages("ggvenn ")#如没有,需下载安装包

library(ggvenn)#加载所需要的安装包

venn_list<-read.csv("上调基因.csv")#输入数据

数据样式

venn_list<-venn_list[,1:3]#选择进行venn分析的列

venn_list1<-as.list(venn_list)#将数据框格式数据转换成列表格式数据

pdf(file = "Venn图_上调.pdf", height = 8, width = 12)#绘制空白画布

ggvenn(

data = venn_list1, # 数据列表

columns = NULL, # 对选中的列名绘图,最多选择4个,NULL为默认全选

show_elements = F, # 当为TRUE时,显示具体的交集情况,而不是交集个数

label_sep = "\n", # 当show_elements = T时生效

show_percentage = T, # 显示每一组的百分比

digits = 1, # 百分比的小数点位数

fill_color = c("#0072B5", "#BC3C28","#008B8B","#FFE1FF","#CD3278","#CD853F"), # 填充颜色

fill_alpha = 0.5, # 填充透明度

stroke_color = "black", # 边缘颜色

stroke_alpha = 0.5, # 边缘透明度

stroke_size = 0.5, # 边缘粗细

stroke_linetype = "solid",# 边缘线条 # 实线:solid 虚线:twodash longdash 点:dotdash dotted dashed 无:blank

set_name_color = "black", # 组名颜色

set_name_size = 6, # 组名大小

text_color = "black", # 交集个数颜色

text_size = 5 # 交集个数文字大小

)

dev.off()#关闭画布

#获得交集基因

genes_set1<-venn_list$TCGA_N_T#将第一列命名成genes_set1

genes_set2<-venn_list$GEO_CON_PTC#将第二列命名成genes_set2

genes_set3<-venn_list$GEO_PTC_ATC#将第三列命名成genes_set3

获取交集基因

intersection_genes <- Reduce(intersect, list(genes_set1, genes_set2, genes_set3))

write.csv(intersection_genes, "上调基因交集.csv")

Venn分析到这就完成啦,最终我们既获得了Venn图,又得到了具体的交集基因。

所有数据我都存放在百度网盘了,欢迎大家访问,

通过网盘分享的文件:数据.zip

链接: https://pan.baidu.com/s/11e0IEa2fI5L31MBqEcPA0w

提取码: shan

相关推荐
海哥编程19 分钟前
Python 数据分析(二):Matplotlib 绘图
python·数据分析·matplotlib
魔力之心20 小时前
R study notes[1]
r语言
Watermelo61721 小时前
极致的灵活度满足工程美学:用Vue Flow绘制一个完美流程图
前端·javascript·vue.js·数据挖掘·数据分析·流程图·数据可视化
Watermelo61721 小时前
Web Worker:让前端飞起来的隐形引擎
前端·javascript·vue.js·数据挖掘·数据分析·node.js·es6
SickeyLee1 天前
BI 系统数据看板全解析:让数据可视化驱动业务决策
信息可视化·数据挖掘·数据分析
万能的小裴同学1 天前
星痕共鸣数据分析2
c++·数据分析
Jacob02341 天前
很多数据分析师写对了 SQL,却忽略了这件更重要的事
后端·sql·数据分析
Chef_Chen1 天前
从0开始学习R语言--Day57--SCAD模型
开发语言·学习·r语言
医工交叉实验工坊1 天前
R 语言绘制六种精美热图:转录组数据可视化实践(基于 pheatmap 包)
开发语言·信息可视化·r语言
海哥编程1 天前
Python 数据分析(一):NumPy 基础知识
python·数据分析·numpy