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)
赞 (0)