EntrezID与Symbol 转换2

EntrezID转换Symbol转换

使用biomaRt 包

#2023年10月

rm(list=ls()) 
library(biomaRt)
ensembl = useMart("ensembl")
ensembl = useDataset("hsapiens_gene_ensembl", mart = ensembl)
mart = useMart("ensembl", dataset = "hsapiens_gene_ensembl"
               ,host = "https://asia.ensembl.org/")
##需要修改host 多次尝试访问

#entrez_ids <- as.character("自有文本")
entrez_ids <- c("100616237","5982","3310","2978")

dat <- getBM(attributes = c("entrezgene_id", "external_gene_name"), 
      filters = "entrezgene_id", values = entrez_ids, mart = mart)

结果:

ENSG转换SYMBOL和ENTREZID

使用(clusterProfiler)和(org.Hs.eg.db)包

rm(list=ls())
library(stringi)##加载包
library(clusterProfiler)
library(org.Hs.eg.db)

Ensembl_ID <- c("ENSG00000000003","ENSG00000000005","ENSG00000000419",
                "ENSG00000000457","ENSG00000000460")
gene_symbol <- bitr(Ensembl_ID, fromType="ENSEMBL", 
                    toType=c("SYMBOL", "ENTREZID"), 
                    OrgDb="org.Hs.eg.db")

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 3
    评论

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值