借助homologene处理
install.packages('homologene', lib="/Software/Binning-software/r.package")
.libPaths("/Software/Binning-software/r.package")
library(homologene)
gene <- read.table("protein_gene.txt", header=F) ##读取基因名表
genelist <- gene$V1
#使用homologene函进行转换
#@genelist是要转换的基因列表
#@inTax是输入的基因列表所属的物种号,10090是小鼠
#@outTax是要转换成的物种号,9606是人
tran_data <- homologene(genelist, inTax = 9606, outTax = 10090)
参考简书: