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")