The countsimQC package provides a simple way to compare the characteristic features of a collection of (e.g., RNA-seq) count data sets. An important application is in situations where a synthetic count data set has been generated using a real count data set as an underlying source of parameters, in which case it is often important to verify that the final synthetic data captures the main features of the original data set. However, the package can be used to create a visual overview of any collection of one or more count data sets.
In this vignette we will show how to generate a comparative report from a collection of two simulated data sets and the original, underlying real data set. First, we load the object containing the three data sets. The object is a named list, where each element is a DESeqDataSet object, containing the count matrix, a sample information data frame and a model formula (necessary to calculate dispersions). For more information about the DESeqDataSet class, please see the DESeq2 Bioconductor package.
suppressPackageStartupMessages({
library(countsimQC)
library(DESeq2)
})
data(countsimExample)
countsimExample## $Original
## class: DESeqDataSet
## dim: 10000 11
## metadata(1): version
## assays(1): counts
## rownames(10000): ENSMUSG00000000001.4 ENSMUSG00000000028.14 ...
## ENSMUSG00000048027.7 ENSMUSG00000048029.10
## rowData names(0):
## colnames(11): GSM1923445 GSM1923446 ... GSM1923578 GSM1923579
## colData names(2): group sample
##
## $Sim1
## class: DESeqDataSet
## dim: 10000 11
## metadata(1): version
## assays(1): counts
## rownames(10000): Gene1 Gene2 ... Gene9999 Gene10000
## rowData names(0):
## colnames(11): Cell1 Cell2 ... Cell88 Cell89
## colData names(4): Cell Batch Group ExpLibSize
##
## $Sim2
## class: DESeqDataSet
## dim: 10000 11
## metadata(1): version
## assays(1): counts
## rownames(10000): Gene1 Gene2 ... Gene9999 Gene10000
## rowData names(0):
## colnames(11): Cell1 Cell2 ... Cell88 Cell89
## colData names(3): Cell CellFac GroupNext, we generate the report using the countsimQCReport() function. Depending on the level of detail and the type of information that are required for the final report, this function can be run in different “modes”:
calculateStatistics = FALSE, only plots will be generated. This is the fastest way of running countsimQCReport(), and in many cases generates enough information for the user to make a visual evaluation of the count data set(s).calculateStatistics = TRUE and permutationPvalues = FALSE, some quantitative pairwise comparisons between data sets will be performed. In particular, the Kolmogorov-Smirnov test and the Wald-Wolfowitz runs test will be used to compare distributions, and additional statistics will be calculated to evaluate how similar the evaluated aspects are between pairs of data sets.calculateStatistics = TRUE and permutationPvalues = TRUE (and giving the requested number of permutations via the nPermutations argument), permutation of data set labels will be used to evaluate the significance of the statistics calculated in the previous point. Naturally, this increases the run time of the analysis considerably.Here, for the sake of speed, we calculate statistics for a small subset of the observations (subsampleSize = 25) and refrain from calculating permutation p-values.
tempDir <- tempdir()
countsimQCReport(ddsList = countsimExample, outputFile = "countsim_report.html",
outputDir = tempDir, outputFormat = "html_document",
showCode = FALSE, forceOverwrite = TRUE,
savePlots = TRUE, description = "This is my test report.",
maxNForCorr = 25, maxNForDisp = Inf,
calculateStatistics = TRUE, subsampleSize = 25,
kfrac = 0.01, kmin = 5,
permutationPvalues = FALSE, nPermutations = NULL)The countsimQCReport() function can generate either an HTML file (by setting outputFormat = "html_document" or outputFormat = NULL) or a pdf file (by setting outputFormat = "pdf_document"). The description argument can be used to provide a more extensive description of the data set(s) that are included in the report.
If the argument savePlots is set to TRUE, an .rds file containing the individual ggplot objects will be generated. These objects can be used to perform fine-tuning of the visualizations if desired. Note, however, that the .rds file can become large if the number of data sets is large, or if the individual data sets have many samples or features. The convenience function generateIndividualPlots() can be used to quickly generate individual figures for all plots included in the report, using a variety of devices. For example, to generate each plot in pdf format:
ggplots <- readRDS(file.path(tempDir, "countsim_report_ggplots.rds"))
if (!dir.exists(file.path(tempDir, "figures"))) {
dir.create(file.path(tempDir, "figures"))
}
generateIndividualPlots(ggplots, device = "pdf", nDatasets = 3,
outputDir = file.path(tempDir, "figures"))## `geom_smooth()` using formula 'y ~ x'In the example above, all data sets were provided as DESeqDataSet objects. The advantage of this is that it allows the specification of the experimental design, which is used in the dispersion calculations. countsimQC also allows a data set to be provided as either a data.frame or a matrix. However, in these situations, it will be assumed that all samples are replicates (i.e., a design ~1). An example is provided in the countsimExample_dfmat data set, provided with the package.
## [1] "Original" "Sim1" "Sim2"## $Original
## [1] "DESeqDataSet"
## attr(,"package")
## [1] "DESeq2"
##
## $Sim1
## [1] "matrix" "array"
##
## $Sim2
## [1] "data.frame"tempDir <- tempdir()
countsimQCReport(ddsList = countsimExample_dfmat,
outputFile = "countsim_report_dfmat.html",
outputDir = tempDir, outputFormat = "html_document",
showCode = FALSE, forceOverwrite = TRUE,
savePlots = TRUE, description = "This is my test report.",
maxNForCorr = 25, maxNForDisp = Inf,
calculateStatistics = TRUE, subsampleSize = 25,
kfrac = 0.01, kmin = 5,
permutationPvalues = FALSE, nPermutations = NULL)## R version 4.0.0 alpha (2020-03-31 r78116)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows Server 2012 R2 x64 (build 9600)
##
## 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] parallel stats4 stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] DESeq2_1.27.29 SummarizedExperiment_1.17.5
## [3] DelayedArray_0.13.10 matrixStats_0.56.0
## [5] Biobase_2.47.3 GenomicRanges_1.39.3
## [7] GenomeInfoDb_1.23.16 IRanges_2.21.8
## [9] S4Vectors_0.25.15 BiocGenerics_0.33.3
## [11] countsimQC_1.5.2
##
## loaded via a namespace (and not attached):
## [1] edgeR_3.29.1 tidyr_1.0.2 jsonlite_1.6.1
## [4] bit64_0.9-7 splines_4.0.0 assertthat_0.2.1
## [7] blob_1.2.1 GenomeInfoDbData_1.2.2 yaml_2.2.1
## [10] pillar_1.4.3 RSQLite_2.2.0 lattice_0.20-41
## [13] glue_1.4.0 limma_3.43.5 digest_0.6.25
## [16] RColorBrewer_1.1-2 XVector_0.27.2 colorspace_1.4-1
## [19] htmltools_0.4.0 Matrix_1.2-18 XML_3.99-0.3
## [22] pkgconfig_2.0.3 genefilter_1.69.0 zlibbioc_1.33.1
## [25] purrr_0.3.3 xtable_1.8-4 scales_1.1.0
## [28] BiocParallel_1.21.2 tibble_3.0.0 annotate_1.65.1
## [31] mgcv_1.8-31 farver_2.0.3 ggplot2_3.3.0
## [34] ellipsis_0.3.0 DT_0.13 withr_2.1.2
## [37] cli_2.0.2 survival_3.1-11 magrittr_1.5
## [40] crayon_1.3.4 memoise_1.1.0 evaluate_0.14
## [43] fansi_0.4.1 nlme_3.1-145 tools_4.0.0
## [46] lifecycle_0.2.0 stringr_1.4.0 munsell_0.5.0
## [49] locfit_1.5-9.4 AnnotationDbi_1.49.1 compiler_4.0.0
## [52] caTools_1.18.0 rlang_0.4.5 grid_4.0.0
## [55] RCurl_1.98-1.1 randtests_1.0 htmlwidgets_1.5.1
## [58] crosstalk_1.1.0.1 bitops_1.0-6 labeling_0.3
## [61] rmarkdown_2.1 gtable_0.3.0 DBI_1.1.0
## [64] R6_2.4.1 knitr_1.28 dplyr_0.8.5
## [67] bit_1.1-15.2 stringi_1.4.6 Rcpp_1.0.4
## [70] vctrs_0.2.4 geneplotter_1.65.0 tidyselect_1.0.0
## [73] xfun_0.12