Vignette illustrating the usage of gscreend on simulated data
2021-08-09
Contents
1 Introduction
Pooled CRISPR perturbations screens employ a library of guide RNAs (gRNAs) that is transduced into a pool of cells with the aim to induce a single genetic perturbation in each cell. The perturbation effect is assessed by measuring the abundance of each gRNA after the screen selection phase and comparing it to its abundance in the plasmid library. The main goal of the following analysis is the detection of essential genes, i.e. genes whose knockout reduces the cell fitness. The package gscreend provides a method to rank genes based on count tables.
2 gscreend workflow
In order to identify essential genes starting from raw gRNA count data, gscreend performs the following analysis steps:
Input of raw gRNA counts at T0 (sequencing of library) and T1 (at the end of the screen). Normalization and calculation of log fold changes.
Split log fold changes into intervals dependent on the initial count at T0.
For every interval fit a skew-normal distribution to the data to model the null hypothesis (via least quantile regression).
Based on the null model calculate p-values for every gRNA.
Rank gRNAs according to p-value and perform robust ranking aggregation to calculate p-values on gene level.
Perform quality control of data and statistical model.
3 Installation
if(!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("gscreend")library(gscreend)
library(SummarizedExperiment)4 Analysis of simulated data with gscreend
4.1 Input data: gRNA counts
The simulated data used in this example has been generated using the simulation method available at https://github.com/imkeller/simulate_pooled_screen
Raw count data consists of gRNA counts in the library sequencing and different replicates after the screen proliferation phase. In order to estimate the effect of a specific gRNA on cell fitness, the relative abundances of the gRNA before and after the proliferation phase will be compares
raw_counts <- read.table(
system.file("extdata", "simulated_counts.txt", package = "gscreend"),
header=TRUE)Generate a summarized experiment from the count data. gscreend currently uses SummarizedExperiment objects as an input format.
The count matrix contains raw gRNA counts. Each row represents one gRNA, each column represents one sample (T0, T1, replicates, …).
counts_matrix <- cbind(raw_counts$library0,
raw_counts$R0_0,
raw_counts$R1_0)
rowData <- data.frame(sgRNA_id = raw_counts$sgrna_id,
gene = raw_counts$Gene)
colData <- data.frame(samplename = c("library", "R1", "R2"),
# timepoint naming convention:
# T0 -> reference,
# T1 -> after proliferation
timepoint = c("T0", "T1", "T1"))
se <- SummarizedExperiment(assays=list(counts=counts_matrix),
rowData=rowData, colData=colData)4.2 Run gscreend
In this step a gscreend experiment object is generated that will after the analysis contain all data related to gRNAs, genes and model parameters.
pse <- createPoolScreenExp(se)## Creating PoolScreenExp object from a SummarizedExperiment object.## References and samples are named correctly.## Data concerning sgRNA and genes is provided.Run gscreend with default parameters.
pse_an <- RunGscreend(pse)## Size normalized count data.## Calculated LFC.## Fitted null distribution.## Calculated p-values at gRNA level.## Ranking genes...## ... for positive fold changes## ... for negative fold changes## gscreend analysis has been completed.4.3 Quality control
gscreend provides basic quality control functions for inspection of replicate correlation for example.
plotReplicateCorrelation(pse_an)
The plotModelParameters() function can be used to inspect
the values of the parameters estimated for the
skew normal distribution of the logarithmic fold change data.
plotModelParameters(pse_an) 
5 Results
The ResultsTable function can be used to extract a table listing for each gene the p-value and fdr. These values correspond to the results from the statistical test indicting whether upon perturbation a specific gene reduces (direction = “negative”), or increasing (direction = “positive”) cell viability.
res <- ResultsTable(pse_an, direction = "negative")
head(res)## Name fdr pval lfc
## essential_0 essential_0 0.0010762608 0.00007 -1.421372
## essential_1 essential_1 0.0000000000 0.00000 -1.984253
## essential_10 essential_10 0.0003192848 0.00002 -1.605037
## essential_100 essential_100 0.0000000000 0.00000 -3.075151
## essential_1000 essential_1000 0.0000000000 0.00000 -2.023614
## essential_1001 essential_1001 0.0588565022 0.00525 -1.0326886 Session Info
sessionInfo()## R version 4.1.0 (2021-05-18)
## 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] SummarizedExperiment_1.23.1 Biobase_2.53.0
## [3] GenomicRanges_1.45.0 GenomeInfoDb_1.29.3
## [5] IRanges_2.27.0 S4Vectors_0.31.0
## [7] BiocGenerics_0.39.1 MatrixGenerics_1.5.3
## [9] matrixStats_0.60.0 gscreend_1.7.1
## [11] BiocStyle_2.21.3
##
## loaded via a namespace (and not attached):
## [1] Rcpp_1.0.7 highr_0.9 nloptr_1.2.2.2
## [4] bslib_0.2.5.1 compiler_4.1.0 BiocManager_1.30.16
## [7] jquerylib_0.1.4 XVector_0.33.0 timeSeries_3062.100
## [10] bitops_1.0-7 tools_4.1.0 zlibbioc_1.39.0
## [13] digest_0.6.27 jsonlite_1.7.2 evaluate_0.14
## [16] lattice_0.20-44 rlang_0.4.11 fGarch_3042.83.2
## [19] Matrix_1.3-4 DelayedArray_0.19.1 magick_2.7.2
## [22] parallel_4.1.0 yaml_2.2.1 xfun_0.25
## [25] GenomeInfoDbData_1.2.6 stringr_1.4.0 knitr_1.33
## [28] sass_0.4.0 grid_4.1.0 R6_2.5.0
## [31] snow_0.4-3 BiocParallel_1.27.3 spatial_7.3-14
## [34] rmarkdown_2.10 bookdown_0.22 magrittr_2.0.1
## [37] fBasics_3042.89.1 htmltools_0.5.1.1 timeDate_3043.102
## [40] stringi_1.7.3 RCurl_1.98-1.3