生信笔记7-小鼠和人的基因名称转换

library(biomaRt)
human <- useMart("ensembl",dataset="hsapiens_gene_ensembl")
mouse <- useMart("ensembl",dataset="mmusculus_gene_ensembl")
# 将人的基因名转换成小鼠的基因名：
geneHs <- c("TP53","TSC1")
geneMm <- getLDS(attributes = "hgnc_symbol",filters="hgnc_symbol",values=geneHs,mart=human,attributesL = "mgi_symbol",martL=mouse,uniqueRows = TRUE)
geneMm
#   HGNC.symbol MGI.symbol
# 1        TSC1       Tsc1
# 2        TP53      Trp53


# 同理，将小鼠基因转成人的基因：
library(biomaRt)
human <- useMart("ensembl",dataset="hsapiens_gene_ensembl")
mouse <- useMart("ensembl",dataset="mmusculus_gene_ensembl")
geneMn <- rownames(mtx)
geneHs <- getLDS(attributes = "mgi_symbol",filters="mgi_symbol",values= geneMn,mart=mouse,attributesL = "hgnc_symbol",martL=human,uniqueRows = TRUE)
geneHs