如何将Ensembl ID转换为R中的基因符号?

use*_*287 11 r bioinformatics bioconductor dataframe

我有一个包含Ensembl ID的data.frame在一列中; 我想为该列的值找到相应的基因符号,并将它们添加到我的数据框中的新列.我使用bioMaRt但它找不到任何Ensembl ID!

这是我的示例数据(df[1:2,]):

row.names organism    gene
41  Homo-Sapiens ENSP00000335357
115 Homo-Sapiens ENSP00000227378
Run Code Online (Sandbox Code Playgroud)

我希望得到这样的东西

row.names organism    gene         id
41  Homo-Sapiens ENSP00000335357   CDKN3
115 Homo-Sapiens ENSP00000227378   HSPA8
Run Code Online (Sandbox Code Playgroud)

这是我的代码:

library('biomaRt')
mart <- useDataset("hsapiens_gene_ensembl", useMart("ensembl"))
genes <- df$genes
df$id <- NA
G_list <- getBM(filters= "ensembl_gene_id", attributes= c("ensembl_gene_id",
"entrezgene", "description"),values=genes,mart= mart)
Run Code Online (Sandbox Code Playgroud)

然后,当我检查G_list时,我得到了这个

[1] ensembl_gene_id entrezgene      description  <0 rows> (or 0-length row.names)
Run Code Online (Sandbox Code Playgroud)

所以我无法将G_list添加到我的df中!因为没有什么可补充的!

提前致谢,

Nic*_*icE 16

这是因为您在gene列中的值不是基因ID,它们是肽ID(它们以ENSP开头).要获取所需信息,请尝试替换ensembl_gene_idensembl_peptide_id:

hgnc_symbol

而且,你真正想要的是 gene

以下是获取输出的总代码:

G_list <- getBM(filters = "ensembl_peptide_id", 
                attributes = c("ensembl_peptide_id", "entrezgene", "description"),
                values = genes, mart = mart)
Run Code Online (Sandbox Code Playgroud)

  • 您还忘记将过滤器切换为“ensembl_peptide_id”。 (2认同)

Goo*_*ill 8

我尝试了几个R包(mygene、org.Hs.eg.db、biomaRt、EnsDb.Hsapiens.v79)将Ensembl.gene转换为gene.symbol,发现EnsDb.Hsapiens.v79包/基因数据库提供了最好的转换质量(就能够将大部分 Ensembl.gene 转换为 gene.symbol 而言)。

如果尚未安装,请通过运行以下命令安装软件包: BiocManager::install("EnsDb.Hsapiens.v79")

library(EnsDb.Hsapiens.v79)

# 1. Convert from ensembl.gene to gene.symbol
ensembl.genes <- c("ENSG00000150676", "ENSG00000099308", "ENSG00000142676", "ENSG00000180776", "ENSG00000108848", "ENSG00000277370", "ENSG00000103811", "ENSG00000101473")

geneIDs1 <- ensembldb::select(EnsDb.Hsapiens.v79, keys= ensembl.genes, keytype = "GENEID", columns = c("SYMBOL","GENEID"))

# 2. Convert from gene.symbol to ensembl.gene
geneSymbols <-  c('DDX26B','CCDC83',  'MAST3', 'RPL11', 'ZDHHC20',  'LUC7L3',  'SNORD49A',  'CTSH', 'ACOT8')

geneIDs2 <- ensembldb::select(EnsDb.Hsapiens.v79, keys= geneSymbols, keytype = "SYMBOL", columns = c("SYMBOL","GENEID"))
Run Code Online (Sandbox Code Playgroud)

用于转换的其他可用 R 包/基因数据库可以参考这个 GitHub 页面

我在bioinformatics.stackexchange 中对类似问题的回答。