DESeq2

Introduction

In this vignette we present the basic features of Glimma. Glimma is an interactive R widget for creating plots for differential expression analysis, created using the Vega and htmlwidgets frameworks. The created plots can be embedded in R Markdown, or exported as standalone HTML documents. The data presented here is slightly modified from the RNAseq123 workflow with only a single contrast has been performed for simplicity. Here we use DESeq2 to fit the model.

To begin, the DGEList object from the workflow has been included with the package as internal data. We will convert this to a DESeq data object.

library(Glimma)
library(edgeR)
library(DESeq2)

dge <- readRDS(system.file("RNAseq123/dge.rds", package = "Glimma"))

dds <- DESeqDataSetFromMatrix(
  countData = dge$counts,
  colData = dge$samples,
  rowData = dge$genes,
  design = ~group
)
#> converting counts to integer mode

MDS Plot

The multidimensional scaling (MDS) plot is frequently used to explore differences in samples. When data has been MDS transformed, the first two dimensions explain the greatest variance between samples, and the amount of variance decreases monotonically with increasing dimension.

The Glimma MDS contains two main components:

  1. a plot showing two MDS dimensions, and
  2. a plot of the eigenvalues of each dimension

The Glimma MDS allows different dimensions to be plotted against each other, with the proportion of variability explained by each dimension highlighted in the barplot alongside it. The interactive MDS plot can be created simply with a single argument for a DESeqDataSet object. The points in the MDS plot can have their size, colour and shape changed based on the information that is stored in the colData of the DESeqDataSet.

glimmaMDS(dds)

Interactions with the plot

In the plot above, try:

Modifications to the plot

Adjusting plot size

Usage: glimmaMDS(dds, width=1200, height=1200)

Users can specify the width and height of the MDS plot widget in pixels. The default width and height are 900 and 500 respectively.

Continuous colour schemes

Usage: glimmaMDS(dds, continuous.color=TRUE)

This argument specifies that continuous colour schemes should be used, which can be useful for colouring samples by their expression for a particular gene.

Custom experimental groups

Usage: glimmaMDS(dds, groups=[vector or data frame])

This allows the user to change the associated sample information such as experimental groups. This information is displayed in mouseover tooltips and can be used to adjust the plot using scale_by, colour_by and shape_by fields.

MA Plot

The MA plot is a visualisation that plots the log-fold-change between experimental groups (M) against the mean expression across all the samples (A) for each gene.

The Glimma MA plot contains two main components:

  1. a plot of summary statistics across all genes that have been tested, and
  2. a plot of gene expression from individual samples for a given gene

The second plot shows gene expression from the last selected sample, which can be selected from the table or directly from the summary plot.

To create the MA plot we first need to run differential expression (DE) analysis for our data using the DESeq function.

dds <- DESeq(dds, quiet=TRUE)

The MA plot can then be created using the dds object that now contains fitted results and the gene counts.

glimmaMA(dds)
#> 15 of 16624 genes were filtered out in DESeq2 tests

Interactions with the plot

In the plot above, try:

Modifications to the plot

Adjusting plot size

Usage: glimmaMA(dds, width=1200, height=1200)

Users can specify the width and height of the MA plot widget in pixels. The default width and height are both 920px.

Changing DE status colouring

Usage: glimmaMA(dds, status.cols=c("blue", "grey", "red")

Users can customise the colours associated with the differential expression status of a gene using the status.cols argument. A vector of length three should be passed in, where each element must be a valid CSS colour string.

Changing sample colours in expression plot

Usage: glimmaMA(dds, sample.cols=colours)

The sample.cols argument colours each sample based on the character vector of valid CSS colour strings colours. The colours vector must be of length ncol(counts).

Overriding counts and groups

Usage: glimmaMA(dds, counts=counts, groups=groups)

Glimma extracts counts from DESeq2::counts(dds) by default, and experimental groups from a group column in colData(dds) if it is available. However, users can optionally supply their own counts matrix and groups vector using the counts and groups arguments.

Transforming counts values

Usage: glimmaMA(dds, transform.counts="rpkm")

The transform.counts argument allows users to choose between strategies for transforming counts data displayed on the expression plot. The default argument is "logcpm" which log-transforms counts using edgeR::cpm(counts, log=TRUE). Other options are "rpkm" for edgeR::rpkm(counts), cpm for edgeR::cpm(counts) and none for no transformation.

Changing displayed columns in gene annotation The gene annotations are pulled from the DGEList object by default. This can be overwritten by providing a different table of annotations via the anno argument, the substitute annotations must have the same number of rows as the counts matrix and the genes must be in the same order as in the counts.

Some annotations may contain too many columsn to be sensibly displayed. The display.columns argument can be used to control the columns displayed in the plot. A vector of column names are to be provided for selecting the columns that will be displayed in the interactive plot.

Saving widgets

The plots created are automatically embedded into Rmarkdown reports, but having many interactive plots can significantly slow down the page. It is instead recommended to save the plots using htmlwidgets::saveWidget and linking to it via markdown hyperlinks.

# creates ma-plot.html in working directory
# link to it in Rmarkdown using [MA-plot](ma-plot.html)
htmlwidgets::saveWidget(glimmaMA(dds), "ma-plot.html")

Session Info

sessionInfo()
#> R version 4.2.1 (2022-06-23)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 20.04.5 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.16-bioc/R/lib/libRblas.so
#> LAPACK: /home/biocbuild/bbs-3.16-bioc/R/lib/libRlapack.so
#> 
#> locale:
#>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#>  [3] LC_TIME=en_GB              LC_COLLATE=C              
#>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#>  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
#> 
#> attached base packages:
#> [1] stats4    stats     graphics  grDevices utils     datasets  methods  
#> [8] base     
#> 
#> other attached packages:
#>  [1] DESeq2_1.38.0               SummarizedExperiment_1.28.0
#>  [3] Biobase_2.58.0              MatrixGenerics_1.10.0      
#>  [5] matrixStats_0.62.0          GenomicRanges_1.50.0       
#>  [7] GenomeInfoDb_1.34.0         IRanges_2.32.0             
#>  [9] S4Vectors_0.36.0            BiocGenerics_0.44.0        
#> [11] edgeR_3.40.0                limma_3.54.0               
#> [13] Glimma_2.8.0               
#> 
#> loaded via a namespace (and not attached):
#>  [1] httr_1.4.4             sass_0.4.2             bit64_4.0.5           
#>  [4] jsonlite_1.8.3         splines_4.2.1          bslib_0.4.0           
#>  [7] assertthat_0.2.1       blob_1.2.3             GenomeInfoDbData_1.2.9
#> [10] yaml_2.3.6             pillar_1.8.1           RSQLite_2.2.18        
#> [13] lattice_0.20-45        glue_1.6.2             digest_0.6.30         
#> [16] RColorBrewer_1.1-3     XVector_0.38.0         colorspace_2.0-3      
#> [19] htmltools_0.5.3        Matrix_1.5-1           pkgconfig_2.0.3       
#> [22] XML_3.99-0.12          genefilter_1.80.0      zlibbioc_1.44.0       
#> [25] xtable_1.8-4           scales_1.2.1           BiocParallel_1.32.0   
#> [28] tibble_3.1.8           annotate_1.76.0        KEGGREST_1.38.0       
#> [31] generics_0.1.3         ggplot2_3.3.6          cachem_1.0.6          
#> [34] cli_3.4.1              survival_3.4-0         magrittr_2.0.3        
#> [37] crayon_1.5.2           memoise_2.0.1          evaluate_0.17         
#> [40] fansi_1.0.3            tools_4.2.1            lifecycle_1.0.3       
#> [43] stringr_1.4.1          locfit_1.5-9.6         munsell_0.5.0         
#> [46] DelayedArray_0.24.0    AnnotationDbi_1.60.0   Biostrings_2.66.0     
#> [49] compiler_4.2.1         jquerylib_0.1.4        rlang_1.0.6           
#> [52] grid_4.2.1             RCurl_1.98-1.9         htmlwidgets_1.5.4     
#> [55] bitops_1.0-7           rmarkdown_2.17         gtable_0.3.1          
#> [58] codetools_0.2-18       DBI_1.1.3              R6_2.5.1              
#> [61] dplyr_1.0.10           knitr_1.40             utf8_1.2.2            
#> [64] fastmap_1.1.0          bit_4.0.4              stringi_1.7.8         
#> [67] parallel_4.2.1         Rcpp_1.0.9             vctrs_0.5.0           
#> [70] geneplotter_1.76.0     png_0.1-7              tidyselect_1.2.0      
#> [73] xfun_0.34