ENSM基因ID转换

library(biomaRt)

# 选择ENSEMBL的数据库
#mart <- useMart(biomart = "ensembl", dataset = "mmusculus_gene_ensembl")

repeat {
  tryCatch({
    mart <- useMart(biomart = "ensembl", dataset = "mmusculus_gene_ensembl")
    break  # 如果成功执行，退出循环
  }, error = function(e) {
    print("Error occurred, retrying...") 
  })
}

# 转换基因ID
gene_id <- "ENSMUSG00000041293"
gene_name <- getBM(attributes = c('ensembl_gene_id', 'external_gene_name'), 
                   filters = 'ensembl_gene_id', 
                   values = gene_id, 
                   mart = mart)
print(gene_name)