plot gseKEGG plots by up and down
enhance_gseplot(data, top = 10, pvalue_cut = 0.1, enrichmentScore_cut = 0.5)
output from enrich_gseKEGG
filter top by pvalue
filter cut of pvalue
filter cut of enrichmentScore
a list contains up and down
if (FALSE) {
gsekegg_res <- enrich_gsekegg(DEG_df,x = "log2FoldChange")
plots_l <- enhance_gseplot(gsekegg_res)
}