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