2021.05.26【R语言】丨clusterProfiler注释大肠杆菌GO/KEGG富集图

34 篇文章 15 订阅
22 篇文章 5 订阅
  • 摘要
  • 环境与方法
    • R version 3.6.1
    • Bioconductor version 3.10
    • package:
      • clusterProfiler
      • org.EcK12.eg.db(E coli strain K12,官方默认包)
      • org.EcSakai.eg.db
  • 使用问题
    • org.EcK12.eg.db与常用的org.Hs.eg.db以及org.Mm.eg.db不同。这个包不能通过require("clusterProfiler")直接使用library(org.Hs.eg.db),需要单独安装。因此我们需要先安装注释包,再进行注释。
  • 使用代码
  • require("clusterProfiler")
    require("topGO")
    require("Rgraphviz")
    BiocManager::install("org.EcK12.eg.db") #或者BiocManager::install("ecoli2.db")
    library(org.EcK12.eg.db) #读取注释包
    
  • GOenrich以BP为例,CC,MF下同
  • ego <- enrichGO(
    gene = data$V1,
    OrgDb = org.EcK12.eg.db,
    keyType = 'SYMBOL',
    ont = "BP", #CC、MF类型在这里进行设置
    pAdjustMethod = "BH",
    pvalueCutoff = 0.05, #如果图像空白或者富集点较少可以适当调整P值和Q值范围
    qvalueCutoff = 0.05
    )
    write.csv(ego,file = "BP_results.csv")
    pdf(file="BP_dotplot.pdf")
    dotplot(ego,font.size=12) #可以补充width和height参数设置长宽,建议MF类型可以适当增加宽度。
    dev.off()
    pdf(file="BP_topGO.pdf")
    plotGOgraph(ego)
    dev.off()

  • KEGGenrich
  • library(DOSE)
    data=read.table("../diffid.list",header = F)
    gene<-as.vector(data$V1)
    gene_list <- mapIds(org.EcK12.eg.db, keys = gene,
    column = "ENTREZID", keytype = "SYMBOL" )
    kk <- enrichKEGG(gene_list, organism="eco", #重点!,这里需要匹配物种简称,查询链接KEGG Organisms: Complete Genomes
    keyType = "ncbi-geneid",
    #pvalueCutoff=0.05, #P值和下面的Q值都可以调整,同GOenrich
    pAdjustMethod="BH",
    qvalueCutoff=0.05
    )
    head(summary(kk))
    pdf(file="kegg.enrich.pdf")
    dotplot(kk)
    dev.off()

  • 需要注意的是,在我使用的几个注释包里,除了org.Hs.eg.db是要求DE_gene全部大写外,org.Mm.eg.db是要求首字母大写,而org.EcK12.eg.db则是末尾字母大写。当然,如果你的注释文件是官方的,那么格式应该是能够识别的。如果是自己生成的gff文件,那么生成的gene_name最好处理一下。如果格式有问题,程序会反馈提醒
  • 结果展示
    • 使用head(summary(kk)) 命令,如果能够看到富集的ID,并且前缀是eco,那么说明大肠杆菌已经注释成功了。我们再来看看富集图片
    • 这张图我把阈值设置得比较高,所以富集出来得Q值可能超过了0.05
  • 总结
    • 在梳理RNA-seq的过程中,自己也在不断地了解一些细节。不加思考一味重复,很容易会得到错误的结果.

 

  • 4
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

穆易青

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值