Contents

1 Introduction

In this vignette we describe how to generate a SingleCellExperiment object combining observed values and clustering results for a data set from the DuoClustering2018 package, and how the resulting object can be explored and visualized with the iSEE package (Rue-Albrecht et al. 2018).

2 Load the necessary packages

suppressPackageStartupMessages({
  library(SingleCellExperiment)
  library(DuoClustering2018)
  library(dplyr)
  library(tidyr)
})
## snapshotDate(): 2020-10-02

3 Retrieve a data set

The different ways of retrieving a data set from the package are described in the plot_performance vignette. Here, we will load a data set using the shortcut function provided in the package.

dat <- sce_filteredExpr10_Koh()
## snapshotDate(): 2020-10-02
## see ?DuoClustering2018 and browseVignettes('DuoClustering2018') for documentation
## loading from cache

4 Read a set of clustering results

For this data set, we also load a set of clustering results obtained using different clustering methods.

res <- clustering_summary_filteredExpr10_Koh_v2()
## snapshotDate(): 2020-10-02
## see ?DuoClustering2018 and browseVignettes('DuoClustering2018') for documentation
## loading from cache

5 Merge data and clustering results

We add the cluster labels for one run and for a set of different imposed number of clusters to the data set.

res <- res %>% dplyr::filter(run == 1 & k %in% c(3, 5, 9)) %>%
  dplyr::group_by(method, k) %>% 
  dplyr::filter(is.na(resolution) | resolution == resolution[1]) %>%
  dplyr::ungroup() %>% 
  tidyr::unite(col = method_k, method, k, sep = "_", remove = TRUE) %>% 
  dplyr::select(cell, method_k, cluster) %>%
  tidyr::spread(key = method_k, value = cluster)

colData(dat) <- DataFrame(
  as.data.frame(colData(dat)) %>%
    dplyr::left_join(res, by = c("Run" = "cell"))
)
head(colData(dat))
## DataFrame with 6 rows and 54 columns
##           Run LibraryName     phenoid libsize.drop feature.drop total_features
##   <character> <character> <character>    <logical>    <logical>      <integer>
## 1  SRR3952323      H7hESC      H7hESC        FALSE        FALSE           4895
## 2  SRR3952325      H7hESC      H7hESC        FALSE        FALSE           4887
## 3  SRR3952326      H7hESC      H7hESC        FALSE        FALSE           4888
## 4  SRR3952327      H7hESC      H7hESC        FALSE        FALSE           4879
## 5  SRR3952328      H7hESC      H7hESC        FALSE        FALSE           4873
## 6  SRR3952329      H7hESC      H7hESC        FALSE        FALSE           4893
##   log10_total_features total_counts log10_total_counts
##              <numeric>    <numeric>          <numeric>
## 1              3.68984      2248411            6.35188
## 2              3.68913      2271617            6.35634
## 3              3.68922       584682            5.76692
## 4              3.68842      3191810            6.50404
## 5              3.68789      2190385            6.34052
## 6              3.68966      2187289            6.33991
##   pct_counts_top_50_features pct_counts_top_100_features
##                    <numeric>                   <numeric>
## 1                    18.2790                     25.9754
## 2                    24.6725                     32.2228
## 3                    22.7328                     30.2060
## 4                    20.8674                     29.0039
## 5                    21.2879                     29.4237
## 6                    20.5931                     27.7401
##   pct_counts_top_200_features pct_counts_top_500_features is_cell_control
##                     <numeric>                   <numeric>       <logical>
## 1                     35.5376                     52.4109           FALSE
## 2                     41.5474                     57.9692           FALSE
## 3                     39.4313                     55.2858           FALSE
## 4                     38.7856                     56.0209           FALSE
## 5                     39.3077                     56.6410           FALSE
## 6                     36.7819                     52.7547           FALSE
##        CIDR_3      CIDR_5      CIDR_9   FlowSOM_3   FlowSOM_5   FlowSOM_9
##   <character> <character> <character> <character> <character> <character>
## 1           1           1           1           2           2           4
## 2           1           1           1           2           2           4
## 3           1           1           1           2           2           4
## 4           1           1           1           2           2           4
## 5           1           1           1           2           2           4
## 6           1           1           1           2           2           4
##       PCAHC_3     PCAHC_5     PCAHC_9 PCAKmeans_3 PCAKmeans_5 PCAKmeans_9
##   <character> <character> <character> <character> <character> <character>
## 1           1           1           1           3           1           4
## 2           1           1           1           3           1           4
## 3           1           1           1           3           1           4
## 4           1           1           1           3           1           4
## 5           1           1           1           3           1           4
## 6           1           1           1           3           1           4
##     RaceID2_3   RaceID2_5   RaceID2_9 RtsneKmeans_3 RtsneKmeans_5 RtsneKmeans_9
##   <character> <character> <character>   <character>   <character>   <character>
## 1           1           1           1             1             1             9
## 2           2           2           2             1             1             9
## 3           2           2           2             1             1             9
## 4           1           1           1             1             1             9
## 5           1           1           1             1             1             9
## 6           1           2           2             1             1             9
##        SAFE_3      SAFE_5      SAFE_9       SC3_3       SC3_5       SC3_9
##   <character> <character> <character> <character> <character> <character>
## 1           2           1           3           1           3           4
## 2           2           1           5           1           3           4
## 3           2           1           3           1           3           4
## 4           2           1           5           1           3           4
## 5           2           1           5           1           3           4
## 6           2           1           5           1           3           4
##      SC3svm_3    SC3svm_5    SC3svm_9    Seurat_9     TSCAN_3     TSCAN_5
##   <character> <character> <character> <character> <character> <character>
## 1           3           3           3           5           1           1
## 2           3           3           3           5           1           1
## 3           3           3           3           5           3           3
## 4           3           3           3           5           1           1
## 5           3           3           3           5           2           2
## 6           3           3           3           5           1           1
##       TSCAN_9    ascend_3    ascend_5    ascend_9   monocle_3   monocle_5
##   <character> <character> <character> <character> <character> <character>
## 1           1           1          NA          NA           3           3
## 2           2           1          NA          NA           3           3
## 3           2           1          NA          NA           3           3
## 4           1           1          NA          NA           3           3
## 5           2           1          NA          NA           3           3
## 6           1           1          NA          NA           3           3
##     monocle_9 pcaReduce_3 pcaReduce_5 pcaReduce_9
##   <character> <character> <character> <character>
## 1           3           1           5           5
## 2           3           1           5           5
## 3           3           1           5           5
## 4           3           1           5           5
## 5           3           1           5           5
## 6           3           1           5           5

6 Visualize with iSEE

The resulting SingleCellExperiment can be interactively explored using, e.g., the iSEE package. This can be useful to gain additional understanding of the partitions inferred by the different clustering methods, to visualize these in low-dimensional representations (PCA or t-SNE), and to investigate how well they agree with known or inferred groupings of the cells.

if (require(iSEE)) {
  iSEE(dat)
}

7 Session info

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] parallel  stats4    stats     graphics  grDevices utils     datasets 
## [8] methods   base     
## 
## other attached packages:
##  [1] tidyr_1.1.2                 dplyr_1.0.2                
##  [3] DuoClustering2018_1.8.0     SingleCellExperiment_1.12.0
##  [5] SummarizedExperiment_1.20.0 Biobase_2.50.0             
##  [7] GenomicRanges_1.42.0        GenomeInfoDb_1.26.0        
##  [9] IRanges_2.24.0              S4Vectors_0.28.0           
## [11] BiocGenerics_0.36.0         MatrixGenerics_1.2.0       
## [13] matrixStats_0.57.0          BiocStyle_2.18.0           
## 
## loaded via a namespace (and not attached):
##  [1] viridis_0.5.1                 httr_1.4.2                   
##  [3] bit64_4.0.5                   viridisLite_0.3.0            
##  [5] AnnotationHub_2.22.0          shiny_1.5.0                  
##  [7] assertthat_0.2.1              interactiveDisplayBase_1.28.0
##  [9] BiocManager_1.30.10           BiocFileCache_1.14.0         
## [11] blob_1.2.1                    GenomeInfoDbData_1.2.4       
## [13] yaml_2.2.1                    BiocVersion_3.12.0           
## [15] pillar_1.4.6                  RSQLite_2.2.1                
## [17] lattice_0.20-41               glue_1.4.2                   
## [19] digest_0.6.27                 promises_1.1.1               
## [21] XVector_0.30.0                colorspace_1.4-1             
## [23] htmltools_0.5.0               httpuv_1.5.4                 
## [25] Matrix_1.2-18                 plyr_1.8.6                   
## [27] pkgconfig_2.0.3               bookdown_0.21                
## [29] zlibbioc_1.36.0               xtable_1.8-4                 
## [31] purrr_0.3.4                   scales_1.1.1                 
## [33] later_1.1.0.1                 tibble_3.0.4                 
## [35] generics_0.0.2                ggplot2_3.3.2                
## [37] ellipsis_0.3.1                mime_0.9                     
## [39] magrittr_1.5                  crayon_1.3.4                 
## [41] mclust_5.4.6                  memoise_1.1.0                
## [43] evaluate_0.14                 ggthemes_4.2.0               
## [45] tools_4.0.3                   lifecycle_0.2.0              
## [47] stringr_1.4.0                 munsell_0.5.0                
## [49] DelayedArray_0.16.0           AnnotationDbi_1.52.0         
## [51] compiler_4.0.3                rlang_0.4.8                  
## [53] grid_4.0.3                    RCurl_1.98-1.2               
## [55] rappdirs_0.3.1                bitops_1.0-6                 
## [57] rmarkdown_2.5                 ExperimentHub_1.16.0         
## [59] gtable_0.3.0                  DBI_1.1.0                    
## [61] curl_4.3                      reshape2_1.4.4               
## [63] R6_2.5.0                      gridExtra_2.3                
## [65] knitr_1.30                    fastmap_1.0.1                
## [67] bit_4.0.4                     stringi_1.5.3                
## [69] Rcpp_1.0.5                    vctrs_0.3.4                  
## [71] dbplyr_1.4.4                  tidyselect_1.1.0             
## [73] xfun_0.18

References

Rue-Albrecht, K, F Marini, C Soneson, and ATL Lun. 2018. “iSEE: Interactive SummarizedExperiment Explorer.” F1000Research 7: 741.