# The methylCC user’s guide

Stephanie C. Hicks1 and Rafael A. Irizarry2

1Johns Hopkins Bloomberg School of Public Health
2Dana-Farber Cancer Institute

#### 27 October 2020

#### Abstract

A tool to estimate the cell composition of DNA methylation whole blood sample measured on any platform technology (microarray and sequencing).

#### Package

methylCC 1.4.0

# 1 Introduction

There are several approaches available to adjust for differents in the relative proportion of cell types in whole blood measured from DNA methylation (DNAm). For example, reference-based approaches require the use of reference data sets made up of purified cell types to identify cell type-specific DNAm signatures. These cell type-specific DNAm signatures are used to estimate the relative proportions of cell types directly, but these reference data sets are laborious and expensive to collect. Furthermore, these reference data sets will need to be continuously collected over time as new platform technologies emerge measuring DNAm because the observed methylation levels for the same CpGs in the same sample vary depending the platform technology.

In contrast, there are reference-free approaches, which are based on methods related to surrogate variable analysis or linear mixed models. These approaches do not provide estimates of the relative proportions of cell types, but rather these methods just remove the variability induced from the differences in relative cell type proportions in whole blood samples.

Here, we present a statistical model that estimates the cell composition of whole blood samples measured from DNAm. The method can be applied to microarray or sequencing data (for example whole-genome bisulfite sequencing data, WGBS, reduced representation bisulfite sequencing data, RRBS). Our method is based on the idea of identifying informative genomic regions that are clearly methylated or unmethylated for each cell type, which permits estimation in multiple platform technologies as cell types preserve their methylation state in regions independent of platform despite observed measurements being platform dependent.

# 2 Getting Started

Load the `methylCC` R package and other packages that we’ll need later on.

    library(FlowSorted.Blood.450k)
    library(methylCC)
    library(minfi)
    library(tidyr)
    library(dplyr)
    library(ggplot2)

# 3 Data

## 3.1 Whole Blood Illumina 450k Microarray Data Example

    # Phenotypic information about samples
    head(pData(FlowSorted.Blood.450k))

    ## DataFrame with 6 rows and 8 columns
    ##          Sample_Name      Slide       Array               Basename    SampleID
    ##          <character>  <numeric> <character>            <character> <character>
    ## WB_105        WB_105 5684819001      R01C01 idat/5684819001_R01C01         105
    ## WB_218        WB_218 5684819001      R02C01 idat/5684819001_R02C01         218
    ## WB_261        WB_261 5684819001      R03C01 idat/5684819001_R03C01         261
    ## PBMC_105    PBMC_105 5684819001      R04C01 idat/5684819001_R04C01         105
    ## PBMC_218    PBMC_218 5684819001      R05C01 idat/5684819001_R05C01         218
    ## PBMC_261    PBMC_261 5684819001      R06C01 idat/5684819001_R06C01         261
    ##          CellTypeLong    CellType         Sex
    ##           <character> <character> <character>
    ## WB_105    Whole blood         WBC           M
    ## WB_218    Whole blood         WBC           M
    ## WB_261    Whole blood         WBC           M
    ## PBMC_105         PBMC        PBMC           M
    ## PBMC_218         PBMC        PBMC           M
    ## PBMC_261         PBMC        PBMC           M

    # RGChannelSet
    rgset <- FlowSorted.Blood.450k[,
                    pData(FlowSorted.Blood.450k)$CellTypeLong %in% "Whole blood"]

# 4 Using the `estimatecc()` function

## 4.1 Input for `estimatecc()`

The `estimatecc()` function must have one object as input:

1. an `object` such as an `RGChannelSet` from the R package `minfi` or a `BSseq` object from the R package `bsseq`. This object should contain observed DNAm levels at CpGs (rows) in a set of \(N\) whole blood samples (columns).

## 4.2 Running `estimatecc()`

In this example, we are interested in estimating the cell composition of the whole blood samples listed in the `FlowSorted.Blood.450k` R/Bioconductor package. To run the `methylcC::estimatecc()` function, just provide the `RGChannelSet`. This will create an `estimatecc` object. We will call the object `est`.

    set.seed(12345)
    est <- estimatecc(object = rgset)
    est

    ## estimatecc: Estimate Cell Composition of Whole Blood
    ##                 Samples using DNA methylation
    ##    Input object class:  RGChannelSet
    ##    Reference cell types:  Gran CD4T CD8T Bcell Mono NK
    ##    Number of Whole Blood Samples:  6
    ##    Name of Whole Blood Samples:  WB_105 WB_218 WB_261 WB_043 WB_160 WB_149

To see the cell composition estimates, use the `cell_counts()` function.

    cell_counts(est)

    ##             Gran       CD4T       CD8T      Bcell       Mono         NK
    ## WB_105 0.4242292 0.16915420 0.09506568 0.04187765 0.08357502 0.18609822
    ## WB_218 0.4906710 0.15471447 0.00000000 0.04979116 0.14346117 0.16136217
    ## WB_261 0.5476117 0.11895815 0.14007846 0.01725995 0.08869797 0.08739378
    ## WB_043 0.5038143 0.12420228 0.08031593 0.06515287 0.07218653 0.15432807
    ## WB_160 0.6803254 0.07139726 0.04965732 0.00000000 0.09526148 0.10335854
    ## WB_149 0.5375962 0.14902349 0.10814235 0.03227085 0.06111685 0.11185025

## 4.3 Compare to `minfi::estimateCellCounts()`

We can also use the `estimateCellCounts()` from R/Bioconductor package `minfi` to estimate the cell composition for each of the whole blood samples.

    sampleNames(rgset) <- paste0("Sample", 1:6)

    est_minfi <- minfi::estimateCellCounts(rgset)
    est_minfi

    ##               CD8T      CD4T          NK      Bcell       Mono      Gran
    ## Sample1 0.13967126 0.1581874 0.137528672 0.07040633 0.06383445 0.4835306
    ## Sample2 0.05797617 0.1751543 0.072686689 0.09859270 0.12429750 0.5228217
    ## Sample3 0.12091718 0.1531062 0.029632651 0.05447982 0.06775822 0.6064806
    ## Sample4 0.10438514 0.1709784 0.024322195 0.11447040 0.05233508 0.5700027
    ## Sample5 0.03775465 0.1465998 0.003996696 0.04767462 0.07452444 0.7069746
    ## Sample6 0.06568804 0.1873355 0.054344189 0.07039282 0.05196750 0.5932074

Then, we can compare the estimates to `methylCC::estimatecc()`.

    df_minfi = gather(cbind("samples" = rownames(cell_counts(est)),
                            as.data.frame(est_minfi)),
                      celltype, est, -samples)

    df_methylCC = gather(cbind("samples" = rownames(cell_counts(est)),
                               cell_counts(est)),
                         celltype, est, -samples)

    dfcombined <- full_join(df_minfi, df_methylCC,
                                   by = c("samples", "celltype"))

    ggplot(dfcombined, aes(x=est.x, y = est.y, color = celltype)) +
        geom_point() + xlim(0,1) + ylim(0,1) +
        geom_abline(intercept = 0, slope = 1) +
        xlab("Using minfi::estimateCellCounts()") +
        ylab("Using methylCC::estimatecc()") +
        labs(title = "Comparing cell composition estimates")

We see the estimates closely match for the six cell types.

# 5 SessionInfo

    sessionInfo()

    ## R version 4.0.3 (2020-10-10)
    ## Platform: x86_64-pc-linux-gnu (64-bit)
    ## Running under: Ubuntu 18.04.5 LTS
    ##
    ## Matrix products: default
    ## BLAS:   /home/biocbuild/bbs-3.12-bioc/R/lib/libRblas.so
    ## LAPACK: /home/biocbuild/bbs-3.12-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] stats4    parallel  stats     graphics  grDevices utils     datasets
    ## [8] methods   base
    ##
    ## other attached packages:
    ##  [1] IlluminaHumanMethylation450kanno.ilmn12.hg19_0.6.0
    ##  [2] IlluminaHumanMethylation450kmanifest_0.4.0
    ##  [3] ggplot2_3.3.2
    ##  [4] dplyr_1.0.2
    ##  [5] tidyr_1.1.2
    ##  [6] methylCC_1.4.0
    ##  [7] FlowSorted.Blood.450k_1.27.0
    ##  [8] minfi_1.36.0
    ##  [9] bumphunter_1.32.0
    ## [10] locfit_1.5-9.4
    ## [11] iterators_1.0.13
    ## [12] foreach_1.5.1
    ## [13] Biostrings_2.58.0
    ## [14] XVector_0.30.0
    ## [15] SummarizedExperiment_1.20.0
    ## [16] Biobase_2.50.0
    ## [17] MatrixGenerics_1.2.0
    ## [18] matrixStats_0.57.0
    ## [19] GenomicRanges_1.42.0
    ## [20] GenomeInfoDb_1.26.0
    ## [21] IRanges_2.24.0
    ## [22] S4Vectors_0.28.0
    ## [23] BiocGenerics_0.36.0
    ## [24] knitr_1.30
    ## [25] BiocStyle_2.18.0
    ##
    ## loaded via a namespace (and not attached):
    ##   [1] colorspace_1.4-1          bsseq_1.26.0
    ##   [3] ellipsis_0.3.1            siggenes_1.64.0
    ##   [5] mclust_5.4.6              base64_2.0
    ##   [7] farver_2.0.3              bit64_4.0.5
    ##   [9] AnnotationDbi_1.52.0      xml2_1.3.2
    ##  [11] R.methodsS3_1.8.1         codetools_0.2-16
    ##  [13] splines_4.0.3             sparseMatrixStats_1.2.0
    ##  [15] scrime_1.3.5              Rsamtools_2.6.0
    ##  [17] annotate_1.68.0           dbplyr_1.4.4
    ##  [19] R.oo_1.24.0               HDF5Array_1.18.0
    ##  [21] BiocManager_1.30.10       readr_1.4.0
    ##  [23] compiler_4.0.3            httr_1.4.2
    ##  [25] assertthat_0.2.1          Matrix_1.2-18
    ##  [27] limma_3.46.0              htmltools_0.5.0
    ##  [29] prettyunits_1.1.1         tools_4.0.3
    ##  [31] gtable_0.3.0              glue_1.4.2
    ##  [33] GenomeInfoDbData_1.2.4    rappdirs_0.3.1
    ##  [35] doRNG_1.8.2               Rcpp_1.0.5
    ##  [37] vctrs_0.3.4               rhdf5filters_1.2.0
    ##  [39] multtest_2.46.0           preprocessCore_1.52.0
    ##  [41] nlme_3.1-150              rtracklayer_1.50.0
    ##  [43] DelayedMatrixStats_1.12.0 xfun_0.18
    ##  [45] stringr_1.4.0             plyranges_1.10.0
    ##  [47] lifecycle_0.2.0           gtools_3.8.2
    ##  [49] rngtools_1.5              XML_3.99-0.5
    ##  [51] beanplot_1.2              scales_1.1.1
    ##  [53] zlibbioc_1.36.0           MASS_7.3-53
    ##  [55] BSgenome_1.58.0           hms_0.5.3
    ##  [57] rhdf5_2.34.0              GEOquery_2.58.0
    ##  [59] RColorBrewer_1.1-2        yaml_2.2.1
    ##  [61] curl_4.3                  memoise_1.1.0
    ##  [63] biomaRt_2.46.0            reshape_0.8.8
    ##  [65] stringi_1.5.3             RSQLite_2.2.1
    ##  [67] genefilter_1.72.0         permute_0.9-5
    ##  [69] GenomicFeatures_1.42.0    BiocParallel_1.24.0
    ##  [71] rlang_0.4.8               pkgconfig_2.0.3
    ##  [73] bitops_1.0-6              nor1mix_1.3-0
    ##  [75] evaluate_0.14             lattice_0.20-41
    ##  [77] purrr_0.3.4               Rhdf5lib_1.12.0
    ##  [79] labeling_0.4.2            GenomicAlignments_1.26.0
    ##  [81] bit_4.0.4                 tidyselect_1.1.0
    ##  [83] plyr_1.8.6                magrittr_1.5
    ##  [85] bookdown_0.21             R6_2.4.1
    ##  [87] magick_2.5.0              generics_0.0.2
    ##  [89] DelayedArray_0.16.0       DBI_1.1.0
    ##  [91] withr_2.3.0               pillar_1.4.6
    ##  [93] survival_3.2-7            RCurl_1.98-1.2
    ##  [95] tibble_3.0.4              crayon_1.3.4
    ##  [97] BiocFileCache_1.14.0      rmarkdown_2.5
    ##  [99] progress_1.2.2            grid_4.0.3
    ## [101] data.table_1.13.2         blob_1.2.1
    ## [103] digest_0.6.27             xtable_1.8-4
    ## [105] R.utils_2.10.1            illuminaio_0.32.0
    ## [107] munsell_0.5.0             openssl_1.4.3
    ## [109] askpass_1.1               quadprog_1.5-8