Background

Setup

# load package
library(gprofiler2)

# read gene list
prefix <- "../../results/meninge_results/DEGs/metascape_input_meningitis_vs_control_"
up <- read.table(paste0(prefix, "upreg_0.05.tsv"))
up <- up$V1
down <- read.table(paste0(prefix, "downreg_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)