ENGS-SYMBLE的ID转换代码

##read.delim（）函数读取tsv数据

stringsAsFactors=FALSE

exp <- read.csv("ID.csv",header = TRUE, sep = ",")

data=data.frame(exp)

library(stringi)##加载包

data$Ensembl_ID=stri_sub(data$Ensembl_ID,1,23)##保留前15位

# 加载相关包

library(clusterProfiler)

library(org.Hs.eg.db)

# 查看org.Hs.eg.db 包提供的转换类型

keytypes(org.Hs.eg.db)

# 需要转换的Ensembl_ID

Ensembl_ID <- data$Ensembl_ID

# 采用bitr()函数进行转换

gene_symbol <- bitr(Ensembl_ID, fromType="ENSEMBL", toType=c("SYMBOL", "ENTREZID"), OrgDb="org.Hs.eg.db")

# 查看转换的结果

head(gene_symbol)