Differential analysis with CATALYST
18 May 2018
Package
CATALYST 1.4.2
Contents
Most of the pipeline and visualizations presented herein were adapted from Nowicka et al. (2017)’s “CyTOF workflow: differential discovery in high-throughput high-dimensional cytometry datasets”. For the complete workflow, go here.
# load required packages
suppressPackageStartupMessages({
library(CATALYST)
library(SummarizedExperiment)
})1 Example data
PBMC_fs:
aflowSetholding PBMCs samples from 4 patients, each containing between 500 and 1000 cells. For each sample, the expression of 10 cell surface and 14 signaling markers was measured before (REF) and upon BCR/FcR-XL stimulation (BCRXL) with B cell receptor/Fc receptor crosslinking for 30’, resulting in a total of 8 samples.
This data set represents a subset of data originating from Bodenmiller et al. (2012) that was also used in the citrus paper (Bruggner et al. 2014).PBMC_panel:
a data.frame containing each marker’s column name in the FCS file (fcs_colnamecolumn), and its targeted protein marker (antigencolumn).PBMC_md:
a data.frame where rows correspond to samples, and columns specify each sample’sfile_name,sample_id,condition, andpatient_id.
# load example data
data(PBMC_fs, PBMC_panel, PBMC_md)
PBMC_fs## A flowSet with 8 experiments.
##
## column names:
## CD3(110:114)Dd CD45(In115)Dd pNFkB(Nd142)Dd pp38(Nd144)Dd CD4(Nd145)Dd CD20(Sm147)Dd CD33(Nd148)Dd pStat5(Nd150)Dd CD123(Eu151)Dd pAkt(Sm152)Dd pStat1(Eu153)Dd pSHP2(Sm154)Dd pZap70(Gd156)Dd pStat3(Gd158)Dd CD14(Gd160)Dd pSlp76(Dy164)Dd pBtk(Er166)Dd pPlcg2(Er167)Dd pErk(Er168)Dd pLat(Er170)Dd IgM(Yb171)Dd pS6(Yb172)Dd HLA-DR(Yb174)Dd CD7(Yb176)Ddhead(PBMC_panel)## fcs_colname antigen
## 1 CD3(110:114)Dd CD3
## 2 CD45(In115)Dd CD45
## 3 pNFkB(Nd142)Dd pNFkB
## 4 pp38(Nd144)Dd pp38
## 5 CD4(Nd145)Dd CD4
## 6 CD20(Sm147)Dd CD20head(PBMC_md)## file_name sample_id condition patient_id
## 1 PBMC_patient1_BCRXL.fcs BCRXL1 BCRXL Patient1
## 2 PBMC_patient1_Ref.fcs Ref1 Ref Patient1
## 3 PBMC_patient2_BCRXL.fcs BCRXL2 BCRXL Patient2
## 4 PBMC_patient2_Ref.fcs Ref2 Ref Patient2
## 5 PBMC_patient3_BCRXL.fcs BCRXL3 BCRXL Patient3
## 6 PBMC_patient3_Ref.fcs Ref3 Ref Patient3The code snippet below demonstrates how to construct a flowSet from a set of FCS files. However, we also give the option to directly specify the path to a set of FCS files (see next section).
# download exemplary set of FCS files
url <- "http://imlspenticton.uzh.ch/robinson_lab/cytofWorkflow"
fcs_zip <- "PBMC8_fcs_files.zip"
download.file(paste0(url, "/", fcs_zip), destfile = fcs_zip, mode = "wb")
unzip(fcs_zip)
# read in FCS files as flowSet
library(flowCore)
fcs_files <- list.files(pattern = ".fcs$")
fs <- read.flowSet(fcs_files, transformation = FALSE, truncate_max_range = FALSE)2 Data organization: The daFrame class
Data used and returned throughout differential analysis are held in objects of the daFrame class. Its constructor requires the following inputs:
x: aflowSetholding the raw measurement data, or a character string that specifies a path to a set of FCS files.panel: a 2 column data.frame that contains for each marker of interest i) its column name in the raw input data, and ii) its targeted protein marker.md: a data.frame with columns describing the experimental design.
Optionally, cols_to_use will specify which columns (channels) to keep from the input data. Here, we keep all measurement parameters (default value cols_to_use = NULL).
# construct daFrame
(daF <- daFrame(PBMC_fs, PBMC_panel, PBMC_md))## Invalid names(metadata(object). Metadata should contain:
## "experiment_info", "n_cells", "SOM_codes", "cluster_codes", "delta_area".## class: daFrame
## dim: 5428 24
## metadata(3): experiment_info n_cells cofactor
## assays(1): exprs
## rownames: NULL
## rowData names(3): sample_id condition patient_id
## colnames(24): CD3 CD45 ... HLA_DR CD7
## colData names(3): channel_name marker_name marker_classWe provide flexibility in the way the panel and metadata table can be set up. Specifically, column names are allowed to differ from the example above, and multiple factors (patient ID, conditions, batch etc.) can be specified. Arguments panel_cols and md_cols should then be used to specify which columns hold the required information. An example is given below:
# alter panel column names
panel2 <- PBMC_panel
colnames(panel2) <- c("channel_name", "marker")
# alter metadata column names & add 2nd condition
md2 <- PBMC_md
colnames(md2) <- c("file", "sampleID", "cond1", "patientID")
md2$cond2 <- rep(c("A", "B"), 4)
# construct daFrame
daFrame(PBMC_fs, panel2, md2,
panel_cols = list(channel = "channel_name", antigen = "marker"),
md_cols = list(file = "file", id = "sampleID",
factors = c("cond1", "cond2", "patientID")))Note that, independent of the input panel and metadata tables, the constructor will fix the names of mandatory slots for latter data accession (sample_id in the rowData, channel_name and marker_name in the colData). The md table will be stored under experiment_info inside the metadata.
3 Diagnostic plots
3.1 plotCounts: Number of cells measured per sample
The number of cells measured per sample may be plotted with plotCounts, or directly accessed via n_cells(). This plot should be used as a guide together with other readouts to identify samples where not enough cells were assayed.
n_cells(daF)## BCRXL1 Ref1 BCRXL2 Ref2 BCRXL3 Ref3 BCRXL4 Ref4
## 528 881 665 438 563 660 934 759plotCounts(daF, color_by = "condition")
3.2 plotMDS: Multi-dimensional scaling plot
A multi-dimensional scaling (MDS) plot on median expresion values may be rendered with plotMDS. Such a plot will give a sense of similarities between samples in an unsupervised way and of key difference in expression before conducting any formal testing. In our example, we can see a clear separation between reference (REF) and stimulation condition (BCRXL).
plotMDS(daF, color_by = "condition")
3.3 plotExprHeatmap: Heatmap of (scaled) median marker expressions
plotExprHeatmap will show a heatmap on median marker intensities with hierarchically clustered columns (samples) and rows (markers). This plot should give an idea of which markers will drive sample clustering, and how similiar samples are in their expression profile.
plotExprHeatmap(daF, color_by = "condition")
4 Clustering
4.1 cluster: FlowSOM clustering & ConsensusClusterPlus metaclustering
CATALYST provides a simple wrapper to perform high resolution FlowSOM clustering and lower resolution ConsensusClusterPlus metaclustering. By default, the data will be initially clustered into xdim = 10 x ydim = 10 = 100 groups. Secondly, the function will metacluster populations into 2 through maxK (default 20) clusters. To make analyses reproducible, the random seed may be set via seed.
# specify markers to use for clustering
lineage_markers <- c("CD3", "CD45", "CD4", "CD20",
"CD33", "CD123", "CD14", "IgM", "HLA_DR", "CD7")
daF <- cluster(daF, cols_to_use = lineage_markers,
xdim = 10, ydim = 10, maxK = 20, verbose = FALSE, seed = 1) Let K = xdim x ydim be the number of FlowSOM clusters. cluster will add information to the following slots of the input daFrame:
rowData:cluster_id: cluster ID as inferred by FlowSOM. One of 1, …, K.
colData:marker_class: factor"type"or"state". Specifyies whether a marker has been used for clustering or not, respectively.
metadata:SOM_codes: a table with dimensions K x (# type markers). Contains the SOM codes.cluster_codes: a table with dimensions K x (maxK+ 1). Contains the cluster codes for all metaclusterings.delta_area: aggplotobject (see below for details).
4.2 Delta area plot
The delta area represents the amount of extra cluster stability gained when clustering into k groups as compared to k-1 groups. It can be expected that high stability of clusters can be reached when clustering into the number of groups that best fits the data. The “natural” number of clusters present in the data should thus corresponds to the value of k where there is no longer a considerable increase in stability (pleateau onset). For more details, the user can refer to the original description of the consensus clustering method (Monti et al. 2003).
# access & render delta area plot
metadata(daF)$delta_area
4.3 mergeClusters: Manual cluster merging
Provided with a 2 column data.frame containing old_cluster and new_cluster IDs, mergeClusters allows for manual cluster merging of any clustering available within the input daFrame (i.e. the xdim x ydim FlowSOM clusters, and any of the 2-maxK ConsensusClusterPlus metaclusters). For latter accession (visualization, differential testing), the function will assign a unique ID (specified with id) to each merging, and add a column to the cluster_codes inside the metadata slot of the input daFrame.
data(merging_table)
head(merging_table)## # A tibble: 6 x 2
## old_cluster new_cluster
## <dbl> <chr>
## 1 1 B-cells IgM+
## 2 2 surface-
## 3 3 NK cells
## 4 4 CD8 T-cells
## 5 5 B-cells IgM-
## 6 6 monocytesdaF <- mergeClusters(daF, table = merging_table, id = "merging1")
head(cluster_codes(daF))## 100 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 merging1
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 B-cells IgM+
## 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 surface-
## 3 3 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 surface-
## 4 4 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 surface-
## 5 5 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3 NK cells
## 6 6 1 2 2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 4 CD8 T-cells4.4 plotClusterHeatmap: Heatmap of (meta)clustering results
Clusterings and metaclusters maybe be viewing with the plotClusterHeatmap. In its 1st panel, the function will display median (arcsinh-transformed and optionally scaled) cell-type marker expressions (across all samples). Depending on argument hm2, the 2nd panel will vary as follows:
"abundances": cluster frequencies by sample;"state_markers": median cell state marker expressions across clusters (analogous to the left-hand side heatmap);- a character string/vector corresponding to one/multiple marker(s): median marker expressions by sample.
Argument scale (default TRUE) specifies whether scaled values should be plotted. These correspond to arcsinh-transformed expression values scaled between 0 and 1 using low (1%) and high (99%) percentiles as boundaries. Note that, in any case, hierarchical clustering is performed on the unscaled data.
While it is only used here for visualization, this additional transformation of the arcsinh-transformed data can sometimes give a better representation of relative differences in marker expression between cell populations.
# median pS6 expression by sample as 2nd heatmap
plotClusterHeatmap(daF, hm2 = "pS6", k=12, m = 6)
# population frequencies by sample as 2nd heatmap
plotClusterHeatmap(daF, hm2 = "abundances",
draw_freqs = TRUE, cluster_anno = FALSE)
4.5 plotAbundances: Relative population abundances
Relative population abundances for any clustering of interest can be plotted with plotAbundances. Argument by will specify whether to plot proportions for each sample or cluster.
If by = "sample_id", the function displays each sample’s cell type composition, and the size of a given stripe reflects the proportion of the corresponding cell type the given sample. Argument group then specifies the facetting. If by = "cluster_id", argument group then specifies the grouping and color coding.
plotAbundances(daF, k = 12, by = "sample_id", group = "condition")
plotAbundances(daF, k = "merging1", by = "cluster_id", group = "condition")
5 Dimensionality reduction with tSNE
Dimensionality reduction through t-SNE may be run via tSNE. Here, the subset of markers to use is specified with cols_to_use, and the number of cells to dowsample to per sample is given by n. Again, the random seed may be set via seed for reproducibility.
daF <- tSNE(daF, cols_to_use = lineage_markers,
n = 200, verbose = FALSE, seed = 42)5.1 plotSNE: t-SNE visualization
plotSNE is a flexbile wrapper to plot the t-SNE colored by clustering or marker expression. Furthermore, the data may be split by condition, sample ID, or any other factor available in the daFrame’s rowData.
# color by pS6 expression and split by condition
plotSNE(daF, color_by = "pS6", facet = "condition")
# color by 8 metaclusters & split by sample ID
plotSNE(daF, color_by = 8, facet = "sample_id")
6 Differental testing with diffcyt
CATALYST has been designed to be compatible with the diffcyt package (Weber 2018), which implements statistical methods for differential discovery in high-dimensional cytometry (including flow cytometry, mass cytometry or CyTOF, and oligonucleotide-tagged cytometry) using high-resolution clustering and moderated tests. The input to the diffcyt pipeline can either be raw data, or a daFrame object. We give an exmaple of the latter below.
Please refer to the diffcyt vignette and R documentation (??diffcyt) for more detailed information.
library(diffcyt)
# create design & constrast matrix
design <- createDesignMatrix(PBMC_md, cols_design=3)
contrast <- createContrast(c(0, 1))
# test for
# - differential abundance (DA) of clusters
# - differential states (DS) within clusters
res_DA <- diffcyt(daF, design = design, contrast = contrast,
analysis_type = "DA", method_DA = "diffcyt-DA-edgeR")
res_DS <- diffcyt(daF, design = design, contrast = contrast,
analysis_type = "DS", method_DS = "diffcyt-DS-limma", plot = FALSE)6.1 plotDiffHeatmap: Heatmap of differential testing results
Differential testing results returned by diffcyt can be displayed with the plotDiffHeatmap function.
For differential abundance (DA) tests, plotDiffHeatmap will display
- median (arcsinh-transformed) cell-type marker expressions (across all samples), and
- cluster abundances by samples
For differential state (DS) tests, plotDiffHeatmap will display
- median (arcsinh-transformed) cell-type marker expressions (across all samples)
- median (arcsinh-transformed) cell-state marker expressions by sample
Clusters (DA) and cluster-marker combinations (DS), respectively, will be marked as significant if their adjusted p-value falls below the threshold value specified with th (default 0.1), and will be ordered by significance if order = TRUE (the default). The number of top findings to display can be specified with top_n (default 20).
plotDiffHeatmap(daF, res_DA, th = 1e-3, top_n = 25)
plotDiffHeatmap(daF, res_DS, top_n = 10)
7 Session Information
sessionInfo()## R version 3.5.0 (2018-04-23)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 16.04.4 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.7-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.7-bioc/R/lib/libRlapack.so
##
## locale:
## [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
## [3] LC_TIME=en_US.UTF-8 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] parallel stats4 stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] diffcyt_1.0.0 bindrcpp_0.2.2
## [3] SummarizedExperiment_1.10.1 DelayedArray_0.6.0
## [5] BiocParallel_1.14.1 matrixStats_0.53.1
## [7] Biobase_2.40.0 GenomicRanges_1.32.3
## [9] GenomeInfoDb_1.16.0 IRanges_2.14.10
## [11] S4Vectors_0.18.2 BiocGenerics_0.26.0
## [13] CATALYST_1.4.2 BiocStyle_2.8.1
##
## loaded via a namespace (and not attached):
## [1] minqa_1.2.4 TH.data_1.0-8
## [3] Rtsne_0.13 colorspace_1.3-2
## [5] rjson_0.2.19 rio_0.5.10
## [7] rprojroot_1.3-2 circlize_0.4.3
## [9] corpcor_1.6.9 XVector_0.20.0
## [11] GlobalOptions_0.0.13 ggrepel_0.8.0
## [13] DT_0.4 mvtnorm_1.0-7
## [15] codetools_0.2-15 splines_3.5.0
## [17] robustbase_0.93-0 knitr_1.20
## [19] jsonlite_1.5 nloptr_1.0.4
## [21] cluster_2.0.7-1 shinydashboard_0.7.0
## [23] graph_1.58.0 shiny_1.1.0
## [25] rrcov_1.4-3 compiler_3.5.0
## [27] httr_1.3.1 drc_3.0-1
## [29] backports_1.1.2 assertthat_0.2.0
## [31] Matrix_1.2-14 lazyeval_0.2.1
## [33] cli_1.0.0 limma_3.36.1
## [35] later_0.7.2 htmltools_0.3.6
## [37] tools_3.5.0 igraph_1.2.1
## [39] gtable_0.2.0 glue_1.2.0
## [41] GenomeInfoDbData_1.1.0 reshape2_1.4.3
## [43] dplyr_0.7.4 Rcpp_0.12.16
## [45] carData_3.0-1 cellranger_1.1.0
## [47] nlme_3.1-137 xfun_0.1
## [49] stringr_1.3.1 lme4_1.1-17
## [51] openxlsx_4.0.17 mime_0.5
## [53] gtools_3.5.0 XML_3.98-1.11
## [55] edgeR_3.22.1 DEoptimR_1.0-8
## [57] zlibbioc_1.26.0 MASS_7.3-50
## [59] zoo_1.8-1 scales_0.5.0
## [61] shinyBS_0.61 promises_1.0.1
## [63] sandwich_2.4-0 RColorBrewer_1.1-2
## [65] ComplexHeatmap_1.18.0 yaml_2.1.19
## [67] curl_3.2 gridExtra_2.3
## [69] ggplot2_2.2.1 stringi_1.2.2
## [71] pcaPP_1.9-73 plotrix_3.7-1
## [73] flowCore_1.46.1 shape_1.4.4
## [75] rlang_0.2.0 pkgconfig_2.0.1
## [77] bitops_1.0-6 evaluate_0.10.1
## [79] lattice_0.20-35 purrr_0.2.4
## [81] bindr_0.1.1 labeling_0.3
## [83] htmlwidgets_1.2 plyr_1.8.4
## [85] magrittr_1.5 bookdown_0.7
## [87] R6_2.2.2 nnls_1.4
## [89] multcomp_1.4-8 pillar_1.2.2
## [91] haven_1.1.1 foreign_0.8-70
## [93] survival_2.42-3 abind_1.4-5
## [95] RCurl_1.95-4.10 FlowSOM_1.12.0
## [97] tibble_1.4.2 tsne_0.1-3
## [99] crayon_1.3.4 car_3.0-0
## [101] utf8_1.1.3 plotly_4.7.1
## [103] rmarkdown_1.9 GetoptLong_0.1.6
## [105] locfit_1.5-9.1 grid_3.5.0
## [107] readxl_1.1.0 data.table_1.11.2
## [109] ConsensusClusterPlus_1.44.0 forcats_0.3.0
## [111] digest_0.6.15 xtable_1.8-2
## [113] tidyr_0.8.1 httpuv_1.4.3
## [115] munsell_0.4.3 viridisLite_0.3.0
## [117] shinyjs_1.0References
Bodenmiller, Bernd, Eli R Zunder, Rachel Finck, Tiffany J Chen, Erica S Savig, Robert V Bruggner, Erin F Simonds, et al. 2012. “Multiplexed Mass Cytometry Profiling of Cellular States Perturbed by Small-Molecule Regulators.” Nature Biotechnology 30 (9):858–67. https://doi.org/10.1038/nbt.2317.
Bruggner, Robert V, Bernd Bodenmiller, David L Dill, Robert J Tibshirani, and Garry P Nolan. 2014. “Automated Identification of Stratifying Signatures in Cellular Subpopulations.” Proceedings of the National Academy of Sciences of the United States of America 111 (26). National Academy of Sciences:E2770–E2777. https://doi.org/10.1073/pnas.1408792111.
Monti, Stefano, Pablo Tamayo, Jill Mesirov, and Todd Golub. 2003. “Consensus Clustering: A Resampling-Based Method for Class Discovery and Visualization of Gene Expression Microarray Data.” Machine Learning 52 (1):91–118. https://doi.org/10.1023/A:1023949509487.
Nowicka, M, C Krieg, LM Weber, FJ Hartmann, S Guglietta, B Becher, MP Levesque, and MD Robinson. 2017. “CyTOF Workflow: Differential Discovery in High-Throughput High-Dimensional Cytometry Datasets [Version 2; Referees: 2 Approved].” F1000Research 6 (748). https://doi.org/10.12688/f1000research.11622.2.
Weber, LM. 2018. “Diffcyt: Differential Discovery in High-Dimensional Cytometry via High-Resolution Clustering.” R Package Version 1.0.0. https://github.com/lmweber/diffcyt.