# chromVAR

chromVAR is an R package for the analysis of sparse chromatin accessibility. chromVAR takes as inputs aligned fragments (filtered for duplicates and low quality) from ATAC-seq or DNAse-seq experiments as well as genomic annotations such as motif positions. chromVAR computes for each annotation and each cell or sample a bias corrected “deviation” in accessibility from the expected accessibility based on the average of all the cells or samples.

This vignette covers basic usage of chromVAR with standard inputs. For more detailed documentation covering different options for various inputs and additional applications, view the additional vignettes on the documentation website. For more description of the method and applications, please see the publication (pdf, supplement).

Use library or require to load the package and useful additional packages.

library(chromVAR)
library(motifmatchr)
library(Matrix)
library(SummarizedExperiment)
library(BiocParallel)
set.seed(2017)

##Setting multiprocessing options The package uses BiocParallel to do the multiprocessing. Check the documentation for BiocParallel to see available options. The settings can be set using the register function. For example, to use MulticoreParam with 8 cores:

register(MulticoreParam(8))

To enable progress bars for multiprocessed tasks, use

register(MulticoreParam(8, progressbar = TRUE))

For Windows, MulticoreParam will not work, but you can use SnowParam:

register(SnowParam(workers = 1, type = "SOCK"))

Even if you don’t want to use more than one core, it is best to explicitly register that choice using SerialParam:

register(SerialParam())

Please see the documentation for BiocParallel for more information about the register function and the various options for multi-processing.

chromVAR takes as input a table of counts of fragments falling in open chromatin peaks. There are numerous software packages that enable the creation of count tables from epigenomics data; chromVAR also provides a method that is tailored for single-cell ATAC-seq counts. To learn more about the options for the count table and how to format a count table computed via other software, see the Counts section of the documentation website.

###Peaks

For using chromVAR, it is recommended to use fixed-width, non-overlapping peaks. The method is fairly robust to the exact choice of peak width, but a width of 250 to 500 bp is recommended. See the supplement of the paper for a disussion section and supplementary figures related to the choice of peak width.

If analyzing single cell data, it can make sense to use peaks derived from bulk ATAC or DNAse-seq data, either from the same population or a similar population (or possibly from a public resource, like the Roadmap Epigenomics project).

If combining multiple peak files from different populations, it is recommended to combine the peaks together. The filterPeaks function (demonstrated a bit further down this vignette) will reduce the peaks to a non-overlapping set based on which overlapping peak has stronger signal across all the data.

The function getPeaks reads in the peaks as a GenomicRanges object. We will show its use by reading in a tiny sample bed file. We’ll use the sort_peaks argument to indicate we want to sort the peaks.

peakfile <- system.file("extdata/test_bed.txt", package = "chromVAR")
peaks <- getPeaks(peakfile, sort_peaks = TRUE)
## Peaks sorted

For reading in peaks in the narrowpeak format, chromVAR includes a function, readNarrowpeaks, that will read in the file, resize the peaks to a given size based on the width argument, and remove peaks that overlap a peak with stronger signal (if non_overlapping is set to TRUE – the default).

###Counts

The function getCounts returns a chromVARCounts object with a Matrix of fragment counts per sample/cell for each peak in assays. This data can be accessed with counts(fragment_counts).The Matrix package is used so that if the matrix is sparse, the matrix will be stored as a sparse Matrix. We will demonstrate this function with a very tiny set of reads included in the package:

bamfile <- system.file("extdata/test_RG.bam", package = "chromVAR")
fragment_counts <- getCounts(bamfile,
peaks,
paired =  TRUE,
by_rg = TRUE,
format = "bam",
colData = DataFrame(celltype = "GM"))
## Reading in file: /tmp/RtmpY8E6dV/Rinst16684f68f03d9/chromVAR/extdata/test_RG.bam

Here we passed only one bam file, but we can also pass a vector of bam file names. In that case, for the column data we would specify the appropriate value per file, e.g DataFrame(celltype = c("GM","K562")) if we were passing in one file for GM cells and one for K562 cells.

If RG tags are not used for combining multiple samples within a file, use by_rg = FALSE. For more on reading in counts, see the Counts section of the documentation website.

## Example data

For the rest of the vignette, we will use a very small (but slightly larger than the previous example) data set of 10 GM cells and 10 H1 cells that has already been read in as a SummarizedExperiment object.

data(example_counts, package = "chromVAR")
head(example_counts)
## class: RangedSummarizedExperiment
## dim: 6 50
## assays(1): counts
## rownames: NULL
## rowData names(3): score qval name
## colnames(50): singles-GM12878-140905-1 singles-GM12878-140905-2 ...
##   singles-H1ESC-140820-24 singles-H1ESC-140820-25
## colData names(2): Cell_Type depth

##Getting GC content of peaks

The GC content will be used for determining background peaks. The function addGCBias returns an updated SummarizedExperiment with a new rowData column named “bias”. The function requires an input of a genome sequence, which can be provided as a BSgenome, FaFile, or DNAStringSet object.

library(BSgenome.Hsapiens.UCSC.hg19)
genome = BSgenome.Hsapiens.UCSC.hg19)
head(rowData(example_counts))
## DataFrame with 6 rows and 4 columns
##       score      qval        name      bias
##   <integer> <numeric> <character> <numeric>
## 1       259  25.99629   GM_peak_6     0.652
## 2        82   8.21494   H1_peak_7     0.680
## 3       156  15.65456  GM_peak_17     0.788
## 4        82   8.21494  H1_peak_13     0.674
## 5       140  14.03065  GM_peak_27     0.600
## 6       189  18.99529 GM_peak_29a     0.742

Check out available.genomes from the BSgenome package for what genomes are available as BSgenome packages. For making your own BSgenome object, check out BSgenomeForge.

##Filtering inputs

If working with single cell data, it is advisable to filter out samples with insufficient reads or a low proportion of reads in peaks as these may represent empty wells or dead cells. Two parameters are used for filtering – min_in_peaks and min_depth. If not provided (as above), these cutoffs are estimated based on the medians from the data. min_in_peaks is set to 0.5 times the median proportion of fragments in peaks. min_depth is set to the maximum of 500 or 10% of the median library size.

Unless plot = FALSE given as argument to function filterSamples, a plot will be generated.

#find indices of samples to keep
counts_filtered <- filterSamples(example_counts, min_depth = 1500,
min_in_peaks = 0.15, shiny = FALSE)

If shiny argument is set to TRUE (the default), a shiny gadget will pop up which allows you to play with the filtering parameters and see which cells pass filters or not.

To get just the plot of what is filtered, use filterSamplesPlot. By default, the plot is interactive– to set it as not interactive use use_plotly = FALSE.

#find indices of samples to keep
filtering_plot <- filterSamplesPlot(example_counts, min_depth = 1500,
min_in_peaks = 0.15, use_plotly = FALSE)
filtering_plot

To instead return the indexes of the samples to keep instead of a new SummarizedExperiment object, use ix_return = TRUE.

ix <- filterSamples(example_counts, ix_return = TRUE, shiny = FALSE)
## min_in_peaks set to 0.105
## min_depth set to 1120.65

For both bulk and single cell data, peaks should be filtered based on having at least a certain number of fragments. At minimum, each peak should have at least one fragment across all the samples (it might be possible to have peaks with zero reads due to using a peak set defined by other data). Otherwise, downstream functions won’t work. The function filterPeaks will also reduce the peak set to non-overlapping peaks (keeping the peak with higher counts for peaks that overlap) if non_overlapping argument is set to TRUE (which is the default).

counts_filtered <- filterPeaks(counts_filtered, non_overlapping = TRUE)

## Get motifs and what peaks contain motifs

The function getJasparMotifs fetches motifs from the JASPAR database.

motifs <- getJasparMotifs()

The function getJasparMotifs() by default gets human motifs from JASPAR core database. For other species motifs, change the species argument.

yeast_motifs <- getJasparMotifs(species = "Saccharomyces cerevisiae")

For using a collection other than core, use the collection argument. Options include: “CORE”, “CNE”, “PHYLOFACTS”, “SPLICE”, “POLII”, “FAM”, “PBM”, “PBM_HOMEO”, “PBM_HLH”.

The getJasparMotifs function is simply a wrapper around getMatrixSet from TFBSTools– you can also use that function to fetch motifs from JASPAR if you prefer, and/or check out the documentation for that function for more information.

The function matchMotifs from the motifmatchr package finds which peaks contain which motifs. By default, it returns a SummarizedExperiment object, which contains a sparse matrix indicating motif match or not.The function requires an input of a genome sequence, which can be provided as a BSgenome, FaFile, or DNAStringSet object.

library(motifmatchr)
motif_ix <- matchMotifs(motifs, counts_filtered,
genome = BSgenome.Hsapiens.UCSC.hg19)

One option is the p.cutoff for determing how stringent motif calling should be. The default value is 0.00005, which tends to give reasonable numbers of motif matches for human motifs.

Instead of returning just motif matches, the function can also return additional matrices (stored as assays) with the number of motif matches per peak and the maximum motif score per peak. For this additional information, use out = scores. To return the actual positions of motif matches, use out = positions. Either the output with out = matches or out = scores can be passed to the computeDeviations function.

If instead of using known motifs, you want to use all kmers of a certain length, the matchKmers function can be used. For more about using kmers as inputs, see the the Annotations section of the documentation website.

kmer_ix <- matchKmers(6, counts_filtered,
genome = BSgenome.Hsapiens.UCSC.hg19)

## Compute deviations

The function computeDeviations returns a SummarizedExperiment with two “assays”. The first matrix (accessible via deviations(dev) or assays(dev)$deviations) will give the bias corrected “deviation” in accessibility for each set of peaks (rows) for each cell or sample (columns). This metric represent how accessible the set of peaks is relative to the expectation based on equal chromatin accessibility profiles across cells/samples, normalized by a set of background peak sets matched for GC and average accessability. The second matrix (deviationScores(dev) or assays(deviations)$z) gives the deviation Z-score, which takes into account how likely such a score would occur if randomly sampling sets of beaks with similar GC content and average accessibility.

dev <- computeDeviations(object = counts_filtered, annotations = motif_ix)

## Background Peaks

The function computeDeviations will use a set of background peaks for normalizing the deviation scores. This computation is done internally by default and not returned – to have greater control over this step, a user can run the getBackgroundPeaks function themselves and pass the result to computeDeviations under the background_peaks parameter.

Background peaks are peaks that are similar to a peak in GC content and average accessibility.

bg <- getBackgroundPeaks(object = counts_filtered)

The result from getBackgroundPeaks is a matrix of indices, where each column represents the index of the peak that is a background peak.

To use the background peaks computed, simply add those to the call to computeDeviations:

dev <- computeDeviations(object = counts_filtered, annotations = motif_ix,
background_peaks = bg)

## Variability

The function computeVariability returns a data.frame that contains the variability (standard deviation of the z scores computed above across all cell/samples for a set of peaks), bootstrap confidence intervals for that variability (by resampling cells/samples), and a p-value for the variability being greater than the null hypothesis of 1.

variability <- computeVariability(dev)

plotVariability(variability, use_plotly = FALSE) 

plotVariability takes the output of computeVariability and returns a plot of rank sorted annotation sets and their variability. By default, the plot will be interactive, unless you set use_plotly = FALSE.

## Visualizing Deviations

For visualizing cells, it can be useful to project the deviation values into two dimension using TSNE. A convenience function for doing so is provided in deviationsTsne. If running in an interactive session, shiny can be set to TRUE to load up a shiny gadget for exploring parameters.

tsne_results <- deviationsTsne(dev, threshold = 1.5, perplexity = 10)

To plot the results, plotDeviationsTsne can be used. If running in an interactive session or an interactive Rmarkdown document, shiny can be set to TRUE to generate a shiny widget. Here we will show static results.

tsne_plots <- plotDeviationsTsne(dev, tsne_results,
sample_column = "Cell_Type",
shiny = FALSE)
tsne_plots[[1]]

tsne_plots[[2]]

# Session Info

Sys.Date()
## [1] "2023-01-19"
sessionInfo()
## R version 4.2.2 (2022-10-31)
## 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
## [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] BSgenome.Hsapiens.UCSC.hg19_1.4.3 BSgenome_1.66.2
##  [3] rtracklayer_1.58.0                Biostrings_2.66.0
##  [5] XVector_0.38.0                    BiocParallel_1.32.5
##  [7] SummarizedExperiment_1.28.0       Biobase_2.58.0
##  [9] GenomicRanges_1.50.2              GenomeInfoDb_1.34.7
## [11] IRanges_2.32.0                    S4Vectors_0.36.1
## [13] BiocGenerics_0.44.0               MatrixGenerics_1.10.0
## [15] matrixStats_0.63.0                Matrix_1.5-3
## [17] motifmatchr_1.20.0                chromVAR_1.20.2
##
## loaded via a namespace (and not attached):
##   [1] Rtsne_0.16                  colorspace_2.0-3
##   [3] rjson_0.2.21                ellipsis_0.3.2
##   [5] farver_2.1.1                DT_0.27
##   [7] bit64_4.0.5                 AnnotationDbi_1.60.0
##   [9] fansi_1.0.3                 codetools_0.2-18
##  [11] R.methodsS3_1.8.2           cachem_1.0.6
##  [13] knitr_1.41                  jsonlite_1.8.4
##  [15] Rsamtools_2.14.0            seqLogo_1.64.0
##  [17] annotate_1.76.0             GO.db_3.16.0
##  [19] png_0.1-8                   R.oo_1.25.0
##  [23] compiler_4.2.2              httr_1.4.4
##  [25] assertthat_0.2.1            fastmap_1.1.0
##  [27] lazyeval_0.2.2              cli_3.6.0
##  [29] later_1.3.0                 htmltools_0.5.4
##  [31] tools_4.2.2                 gtable_0.3.1
##  [33] glue_1.6.2                  TFMPvalue_0.0.9
##  [35] GenomeInfoDbData_1.2.9      reshape2_1.4.4
##  [37] dplyr_1.0.10                Rcpp_1.0.9
##  [39] jquerylib_0.1.4             vctrs_0.5.1
##  [41] xfun_0.36                   CNEr_1.34.0
##  [43] stringr_1.5.0               mime_0.12
##  [45] miniUI_0.1.1.1              lifecycle_1.0.3
##  [47] restfulr_0.0.15             poweRlaw_0.70.6
##  [49] gtools_3.9.4                XML_3.99-0.13
##  [51] JASPAR2016_1.26.0           zlibbioc_1.44.0
##  [53] scales_1.2.1                vroom_1.6.0
##  [55] hms_1.1.2                   promises_1.2.0.1
##  [57] parallel_4.2.2              RColorBrewer_1.1-3
##  [59] yaml_2.3.6                  memoise_2.0.1
##  [61] ggplot2_3.4.0               sass_0.4.4
##  [63] stringi_1.7.12              RSQLite_2.2.20
##  [65] highr_0.10                  BiocIO_1.8.0
##  [67] caTools_1.18.2              rlang_1.0.6
##  [69] pkgconfig_2.0.3             bitops_1.0-7
##  [71] archive_1.1.5               pracma_2.4.2
##  [73] evaluate_0.20               lattice_0.20-45
##  [75] purrr_1.0.1                 labeling_0.4.2
##  [77] GenomicAlignments_1.34.0    htmlwidgets_1.6.1
##  [79] bit_4.0.5                   tidyselect_1.2.0
##  [81] plyr_1.8.8                  magrittr_2.0.3
##  [83] R6_2.5.1                    generics_0.1.3
##  [85] DelayedArray_0.24.0         DBI_1.1.3
##  [87] withr_2.5.0                 pillar_1.8.1
##  [89] KEGGREST_1.38.0             RCurl_1.98-1.9
##  [91] tibble_3.1.8                crayon_1.5.2
##  [93] utf8_1.2.2                  plotly_4.10.1
##  [95] nabor_0.5.0                 tzdb_0.3.0
##  [97] rmarkdown_2.19              TFBSTools_1.36.0
##  [99] grid_4.2.2                  data.table_1.14.6
## [101] blob_1.2.3                  digest_0.6.31
## [103] xtable_1.8-4                tidyr_1.2.1
## [105] httpuv_1.6.8                R.utils_2.12.2
## [107] munsell_0.5.0               DirichletMultinomial_1.40.0
## [109] viridisLite_0.4.1           bslib_0.4.2