Enrichment plot的另一种展示

上图大家都不陌生，GSEA分析出来的一个结果图。这里想像大家介绍的不是这个图是什么意思，而是这个图换一种形式展示！

#安装R包

library(plyr)
library(ggplot2)
library(grid)
library(gridExtra)
#设置工作目录
setwd("C:\\Users\\lexb4\\Desktop\\singleGene\\21.multipleGSEA") 
#获取目录下的所有xls文件
files=grep(".xls",dir(),value=T)
 #读取每个文件                                        
data = lapply(files,read.delim)                                        
names(data) = files

                               该目录下的所有文件

以其中一个文件为例

dataSet = ldply(data, data.frame)
#将文件后缀删掉
dataSet$pathway = gsub(".xls