# Using BioQC with signed genesets

#### Jitao David Zhang and Gregor Sturm

#### 2021-10-26

## Introduction

Besides being used as a QC-tool for gene expression data, BioQC can be used for general-purpose gene-set enrichment analysis. Its core function, wmwTest, can handle not only “normal”, unsigned gene sets, but also signed genesets where two sets of genes represent signatures that are positively and negatively regulated respectively.

This vignette describes an example of such applications. First we load the BioQC library.

    library(BioQC)

## GMT read-in

We first open a toy GMT file containing signed genesets with readSignedGmt. The function reads the file into a SignedGenesets object.

    gmtFile <- system.file("extdata/test.gmt", package="BioQC")
    ## print the file context
    cat(readLines(gmtFile), sep="\n")

    ## GS_A TestGeneSet_A   AKT1    AKT2    AKT3
    ## GS_B TestGeneSet_B   MAPK1   MAPK3   MAPK8
    ## GS_C_UP  TestGeneSet_C   ERBB2   ERBB3
    ## GS_C_DN  TestGeneSet_C   EGFR    ERBB4
    ## GS_D_UP  TestGeneSet_D   GATA2   GATA4
    ## GS_D_DN  TestGeneSet_D   GATA1   GATA3
    ## GS_E_DN  TestGeneSet_E   TSC1    TSC2

    ## read the file into SignedGenesets
    genesets <- readSignedGmt(gmtFile)
    print(genesets)

    ## A list of 5 signed gene-sets
    ##   GS_A (no genes)
    ##   GS_B (no genes)
    ##   GS_C[n=4]
    ##     positive[n=2]:ERBB2,ERBB3
    ##     negative[n=2]:EGFR,ERBB4
    ##   GS_D[n=4]
    ##     positive[n=2]:GATA2,GATA4
    ##     negative[n=2]:GATA1,GATA3
    ##   GS_E[n=2]
    ##     positive[n=0]:
    ##     negative[n=2]:TSC1,TSC2

Note that though the GMT file contains 6 non-empty lines, only five signed genesets are returned by readSignedGmt because a pair of negative and negative geneset of GS_C is available.

Note that in its current form, no genes are reported for GS_A and GS_B, because the names of both sets do not match the patterns. User can decide how to handle such genesets that match patterns of neither positive nor negative sets (GS_A and GS_B in this case). By default, such genesets are ignored; however, user can decide to treat them as either positive or negative genesets. For the purpose of this tutorial, we treat these genesets as positive.

    genesets <- readSignedGmt(gmtFile, nomatch="pos")
    print(genesets)

    ## A list of 5 signed gene-sets
    ##   GS_A[n=3]
    ##     positive[n=3]:AKT1,AKT2,AKT3
    ##     negative[n=0]:
    ##   GS_B[n=3]
    ##     positive[n=3]:MAPK1,MAPK3,MAPK8
    ##     negative[n=0]:
    ##   GS_C[n=4]
    ##     positive[n=2]:ERBB2,ERBB3
    ##     negative[n=2]:EGFR,ERBB4
    ##   GS_D[n=4]
    ##     positive[n=2]:GATA2,GATA4
    ##     negative[n=2]:GATA1,GATA3
    ##   GS_E[n=2]
    ##     positive[n=0]:
    ##     negative[n=2]:TSC1,TSC2

## Expression object construction

Next we construct an ExpressionSet object containing 100 genes, with some of the genes in the GMT file present.

    set.seed(1887)
    testN <- 100L
    testSampleCount <- 3L
    testGenes <- c("AKT1", "AKT2", "ERBB2", "ERBB3", "EGFR","TSC1", "TSC2", "GATA2", "GATA4", "GATA1", "GATA3")
    testRows <- c(testGenes, paste("Gene", (length(testGenes)+1):testN, sep=""))
    testMatrix <- matrix(rnorm(testN*testSampleCount, sd=0.1), nrow=testN, dimnames=list(testRows, NULL))
    testMatrix[1:2,] <- testMatrix[1:2,]+10
    testMatrix[6:7,] <- testMatrix[6:7,]-10
    testMatrix[3:4,] <- testMatrix[3:4,]-5
    testMatrix[5,] <- testMatrix[5,]+5
    testEset <- new("ExpressionSet", exprs=testMatrix)

The expression of somes genes are delibrately changed so that some genesets are expected to be significantly enriched.

- AKT1 and AKT2 are higher expressed than the background genes (‘background’ hereafter).
- TSC1 and TSC2 are lower expressed than the background.
- ERBB2 and ERBB3 are moderately lower expressed than the background.
- EGFR is moderately higher expressed than the background.

Considering the geneset composition printed above, we can expect that * GS_A shall be significantly up-regulated; * GS_B shall not be significant, because its genes are missing; * GS_C shall be significantly down-regulated, with positive targets down-regulated and negative targets up-regulated; * GS_D shall not always be significant, because its genes are comparable to the background; * GS_E shall be significantly up-regulated, because its negative targets are down-regulated.

## Match genes

With both SignedGenesets and ExpressionSet objects at hand, we can query the indices of genes of genesets in the ExpressionSet object.

    testIndex <- matchGenes(genesets, testEset, col=NULL)
    print(testIndex)

    ## A list of 5 signed indices with offset=1
    ## Options: NA removed: TRUE; duplicates removed: TRUE
    ##   GS_A[n=2]
    ##     positive[n=2]:1,2
    ##     negative[n=0]:
    ##   GS_B (no genes)
    ##   GS_C[n=3]
    ##     positive[n=2]:3,4
    ##     negative[n=1]:5
    ##   GS_D[n=4]
    ##     positive[n=2]:8,9
    ##     negative[n=2]:10,11
    ##   GS_E[n=2]
    ##     positive[n=0]:
    ##     negative[n=2]:6,7

If the ExpressionSet object has GeneSymbols in its featureData other than the feature names, user can specify the parameter col in matchGenes to make the match working. matchGene also works with characters and matrix as input, please check out the help pages for such uses.

## Perform the analysis

    wmwResult.greater <- wmwTest(testEset, testIndex, valType="p.greater")
    print(wmwResult.greater)

    ##                1           2           3
    ## GS_A 0.008185751 0.008185751 0.008185751
    ## GS_B 1.000000000 1.000000000 1.000000000
    ## GS_C 0.997942914 0.997942914 0.997942914
    ## GS_D 0.924153922 0.114118870 0.211756278
    ## GS_E 0.008185751 0.008185751 0.008185751

As expected, GS_A and GS_E are significant when the alternative hypothesis is greater.

    wmwResult.less <- wmwTest(testEset, testIndex, valType="p.less")
    print(wmwResult.less)

    ##                1           2           3
    ## GS_A 0.992348913 0.992348913 0.992348913
    ## GS_B 1.000000000 1.000000000 1.000000000
    ## GS_C 0.002192387 0.002192387 0.002192387
    ## GS_D 0.078389208 0.889240837 0.793302033
    ## GS_E 0.992348913 0.992348913 0.992348913

As expected, GS_C is significant when the alternative hypothesis is less.

    wmwResult.two.sided <- wmwTest(testEset, testIndex, valType="p.two.sided")
    print(wmwResult.two.sided)

    ##                1           2           3
    ## GS_A 0.016371502 0.016371502 0.016371502
    ## GS_B 1.000000000 1.000000000 1.000000000
    ## GS_C 0.004384774 0.004384774 0.004384774
    ## GS_D 0.156778415 0.228237741 0.423512555
    ## GS_E 0.016371502 0.016371502 0.016371502

As expected, GS_A, GS_C, and GS_E are significant when the alternative hypothesis is two.sided.

A simple way to integrate the results of both alternative hypotheses into one numerical value is the Q value, which is defined as absolute log10 transformation of the smaller p value of the two hypotheses, times the sign defined by greater=1 and less=-1.

    wmwResult.Q <- wmwTest(testEset, testIndex, valType="Q")
    print(wmwResult.Q)

    ##               1          2          3
    ## GS_A  1.7859115  1.7859115  1.7859115
    ## GS_B  0.0000000  0.0000000  0.0000000
    ## GS_C -2.3580528 -2.3580528 -2.3580528
    ## GS_D -0.8047137  0.6416125  0.3731337
    ## GS_E  1.7859115  1.7859115  1.7859115

As expected, genesets GS_A, GS_C, and GS_E have large absolute values, suggesting they are potentially enriched; while GS_A and GS_E are positively enriched, GS_C is negatively enriched.

## Conclusions

In summary, BioQC can be used to perform gene-set enrichment analysis with signed genesets. Its speed is comparable to that of unsigned genesets.

## Acknowledgement

I would like to thank the authors of the gCMAP package with the idea of integrating signed genesets into the framework of Wilcoxon-Mann-Whitney test.

## R session info

    sessionInfo()

    ## R version 4.1.1 (2021-08-10)
    ## Platform: x86_64-w64-mingw32/x64 (64-bit)
    ## Running under: Windows Server x64 (build 17763)
    ##
    ## Matrix products: default
    ##
    ## locale:
    ## [1] LC_COLLATE=C
    ## [2] LC_CTYPE=English_United States.1252
    ## [3] LC_MONETARY=English_United States.1252
    ## [4] LC_NUMERIC=C
    ## [5] LC_TIME=English_United States.1252
    ##
    ## attached base packages:
    ## [1] stats4    stats     graphics  grDevices utils     datasets  methods
    ## [8] base
    ##
    ## other attached packages:
    ##  [1] rbenchmark_1.0.0     gplots_3.1.1         gridExtra_2.3
    ##  [4] latticeExtra_0.6-29  lattice_0.20-45      org.Hs.eg.db_3.14.0
    ##  [7] AnnotationDbi_1.56.0 IRanges_2.28.0       S4Vectors_0.32.0
    ## [10] testthat_3.1.0       limma_3.50.0         RColorBrewer_1.1-2
    ## [13] BioQC_1.22.0         Biobase_2.54.0       BiocGenerics_0.40.0
    ## [16] knitr_1.36
    ##
    ## loaded via a namespace (and not attached):
    ##  [1] KEGGREST_1.34.0        gtools_3.9.2           locfit_1.5-9.4
    ##  [4] xfun_0.27              bslib_0.3.1            vctrs_0.3.8
    ##  [7] htmltools_0.5.2        yaml_2.2.1             blob_1.2.2
    ## [10] rlang_0.4.12           jquerylib_0.1.4        withr_2.4.2
    ## [13] DBI_1.1.1              bit64_4.0.5            jpeg_0.1-9
    ## [16] GenomeInfoDbData_1.2.7 stringr_1.4.0          zlibbioc_1.40.0
    ## [19] Biostrings_2.62.0      gtable_0.3.0           caTools_1.18.2
    ## [22] evaluate_0.14          memoise_2.0.0          fastmap_1.1.0
    ## [25] GenomeInfoDb_1.30.0    highr_0.9              Rcpp_1.0.7
    ## [28] KernSmooth_2.23-20     edgeR_3.36.0           cachem_1.0.6
    ## [31] desc_1.4.0             pkgload_1.2.3          jsonlite_1.7.2
    ## [34] XVector_0.34.0         bit_4.0.4              png_0.1-7
    ## [37] digest_0.6.28          stringi_1.7.5          rprojroot_2.0.2
    ## [40] grid_4.1.1             tools_4.1.1            bitops_1.0-7
    ## [43] magrittr_2.0.1         sass_0.4.0             RCurl_1.98-1.5
    ## [46] RSQLite_2.2.8          crayon_1.4.1           pkgconfig_2.0.3
    ## [49] rmarkdown_2.11         httr_1.4.2             R6_2.5.1
    ## [52] compiler_4.1.1