1. OUQ技术分享首页
  2. 生物技术
  3. 生物信息技术
  4. R

R_Code:RNAseq_Gene_Type_Convert_ENSEMBL_to_ENTREZ

• R • 阅读 53

1.Ensembl_to_Entrez:

library(AnnotationDbi)
library(org.Hs.eg.db)
library(clusterProfiler)
library(dplyr)

diff <- read.csv("C:/Users/Lamarck/Desktop/UP_genes_ENSEMBL.csv")

converted_genes <- bitr(
geneID = diff$gene,
fromType = "ENSEMBL",
toType = "ENTREZID",
OrgDb = org.Hs.eg.db
)

final_data <- left_join(diff, converted_genes, by = c("gene" = "ENSEMBL"))

write.csv(final_data, "C:/Users/Lamarck/Desktop/UP_genes_ENSEMBL_ENTREZID.csv", row.names = FALSE)

2.Ensembl_to_Symbol:

library(AnnotationDbi)
library(org.Hs.eg.db)
library(clusterProfiler)
library(dplyr)

diff <- read.csv("C:/Users/Lamarck/Desktop/UP_genes_Ensembl.csv")

converted_genes <- bitr(
geneID = diff$gene,
fromType = "ENSEMBL",
toType = "SYMBOL",
OrgDb = org.Hs.eg.db
)

final_data <- left_join(diff, converted_genes, by = c("gene" = "ENSEMBL"))

write.csv(final_data, "C:/Users/Lamarck/Desktop/UP_genes_Symbol.csv", row.names = FALSE)

本站原创，如若转载，请注明出处：https://www.ouq.net/3762.html

赞 (0)
打赏 微信打赏，为服务器增加50M流量 微信打赏，为服务器增加50M流量 支付宝打赏，为服务器增加50M流量 支付宝打赏，为服务器增加50M流量
上一篇 5天前
下一篇 5天前

相关推荐

  • Rstudio/Rstudio Server enable Copilot-Rstudio Server打开Copilot

    Rstudio Server 默认是关闭Copilot Copilot is turned off by default. Copilot is turned off with copilot-enabled=0 in /etc/rstud…

    R 3天前
    34

  • R_Code: KEGG analysis

    library(clusterProfiler) library(org.Hs.eg.db) # 读取输入数据文件 file_path <- “C:/Users/Lamarck/Desktop/UP_genes_ENSEMBL_ENT…

    R 5天前
    55

  • R_Code:GO and Functional GO

    GO analysis: library(AnnotationDbi) library(org.Hs.eg.db) #基因注释包 library(clusterProfiler) #富集包 # 读取CSV文件 file_path <-…

    R 5天前
    57

  • R_Code:WGCNA and WGCNA_Get_Gene_Length

    library(WGCNA) library(DESeq2) # enableWGCNAThreads(nThreads = 10) # 在处理数据框(data.frame)时，不会自动给将String类型转换成factor类型 optio…

    R 5天前
    55

  • R_Code:RNAseq_GSEA_analysis

    library(clusterProfiler) # GSEA 和富集分析主力包 library(org.Hs.eg.db) # 人类注释数据库（ENTREZID 与 SYMBOL 等 ID 转换） library(enrichplot) …

    R 5天前
    60