###GSEA富集分析中,不需要提取差异基因,只需要将所有基因的表达情况按照一定顺序排列(一般按log2FD)之后根据对照组和实验组中所有基因在红色(蓝色)富集,从而得出对照组或者实验组所富集到的通路。因此,GSEA分析可以很有效的避免基因过滤从而导致一些基因被筛除掉。
library(DO.db)
require(DOSE)
library(clusterProfiler)
library(AnnotationHub)
library(readr)
library(pheatmap)
library(tidyverse)
library(DESeq2)
library(ggplot2)
library(export)
library(enrichplot)
library(Rgraphviz)
library(org.Hs.eg.db)
#all_entrez.csv的第一列是entrezid,第二列是FoldChange的值。
DEG <- read.csv(file.choose(),sep = "\t",header = TRUE