R代码2-两组基因韦恩图

首席躺平官 2021-07-29 16:04:30 阅读: 2004

#获得两个差异表达基因集的韦恩图和基因名
library(VennDiagram)
#设置当前工作目录,所下载的数据或者生成的数据都在如下目录下
setwd("D:/geo/GSE70689/")

#读取差异基因
CBD_Cntr_data = read.csv("CBD-Cntr_defference_expression_genes.csv", header = T)
CBD_LPS_LPS_data = read.csv("CBD_LPS-LPS_defference_expression_genes.csv", header = T)

#获得差异基因的symbol
CBD_Cntr =as.character(CBD_Cntr_data$X)
CBDLPS_LPS =as.character(CBD_LPS_LPS_data$X)

venn.diagram(
  x= list("CBD_Cntr" = CBD_Cntr, "CBDLPS_LPS" = CBDLPS_LPS),
  filename = "venn.png", 
  height = 800, 
  width = 800,
  resolution =300, 
  imagetype="png", 
  col="transparent",
  fill=c("blue","green"),
  alpha = 0.50, 
  cex=1,
  cat.cex=0.5
)
#取得两个个组差异基因的交集
DEG = intersect(CBD_Cntr, CBDLPS_LPS)
DEG

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• 临床预测模型的展示形式指南（下） 首席躺平官 08-30
• 临床预测模型的展示形式指南（上） 首席躺平官 08-30
• R语言建立基于Logistic回归的临床预测模型 首席躺平官 08-30
• R语言CMplot包绘制惊艳的基因图 首席躺平官 08-28
• 差分进化算法Differential Evolution Algorithm，DE 首席躺平官 08-27
• ggsci-按照杂志要求进行文章图片配色 首席躺平官 08-24
• R代码10-WGCNA分析 首席躺平官 07-29
• R代码9-单因素Cox和多因素Cox回归分析 首席躺平官 07-29
• R代码8-GSEA分析绘图 首席躺平官 07-29
• R代码7-绘制生存曲线 首席躺平官 07-29