gseaplot自定义颜色

《听说你有RNAseq数据却不知道怎么跑GSEA》一文有小伙伴问封面的gseaplot能否换颜色，于是我就随手支持了。

library(DOSE)
data(geneList)
x <- gseDO(geneList)
gseaplot(x, 1, title=x$Description[1])

上面是本来默认的情况，现在可以设置color, color.line和color.vline：

gseaplot(x, 1, color="#DAB546",
	color.line='firebrick',
        color.vline="steelblue",
        title=x$Description[1])