Background

Setup

# load package
library(gprofiler2)

# read gene list
up <- read.table("../../results/meninges_1CPM_in_12_samples/DEGs/metascape_input_upregulated_FDRq_0.05.tsv")
up <- up$V1
down <- read.table("../../results/meninges_1CPM_in_12_samples/DEGs/metascape_input_downregulated_FDRq_0.05.tsv")
down <- down$V1

Gene list functional enrichment

Up-regulated genes

# query
gost.up <- gost(query = up,
                organism = "hsapiens",
                ordered_query = TRUE)

# plot
gostplot(gostres = gost.up, capped = FALSE)
# save results
#publish_gosttable(gostres = gost.up)

Down-regulated genes

gost.down <- gost(query = down,
                  organism = "hsapiens",
                  ordered_query = TRUE)

gostplot(gostres = gost.down, capped = FALSE)