library(Seurat)
#> Attaching SeuratObject
library(curl)
#> Using libcurl 7.81.0 with OpenSSL/3.0.2
library(SimBu)
This chapter covers the different input and output options of the package in detail.
The input for your simulations is always a SummarizedExperiment object. You can create this object with different constructing functions, which will explained below. It is also possible to merge multiple datasets objects into one.
Sfaira is not covered in this vignette, but in “Public Data Integration”.\
Using existing count matrices and annotations is already covered in the “Getting started” vignette; this section will explain some minor details.\
When generating a dataset with your own data, you need to provide the count_matrix parameter of dataset(); additionally you can provide a TPM matrix with the tpm_matrix. This will then lead to two simulations, one based on counts and one based on TPMs. For either of them, genes are located in the rows, cells in the columns.
Additionally, an annotation table is needed, with the cell-type annotations. It needs to consist of at least out of 2 columns: ID and cell_type, where ID has to be identical to the column names of the provides matrix/matrices. If not all cells appear in the annotation or matrix, the intersection of both is used to generate the dataset. \
Here is some example data:
counts <- Matrix::Matrix(matrix(rpois(3e5, 5), ncol = 300), sparse = TRUE)
tpm <- Matrix::Matrix(matrix(rpois(3e5, 5), ncol = 300), sparse = TRUE)
tpm <- Matrix::t(1e6 * Matrix::t(tpm) / Matrix::colSums(tpm))
colnames(counts) <- paste0("cell-", rep(1:300))
colnames(tpm) <- paste0("cell-", rep(1:300))
rownames(counts) <- paste0("gene-", rep(1:1000))
rownames(tpm) <- paste0("gene-", rep(1:1000))
annotation <- data.frame(
"ID" = paste0("cell-", rep(1:300)),
"cell_type" = c(
rep("T cells CD4", 50),
rep("T cells CD8", 50),
rep("Macrophages", 100),
rep("NK cells", 10),
rep("B cells", 70),
rep("Monocytes", 20)
),
row.names = paste0("cell-", rep(1:300))
)
seurat_obj <- Seurat::CreateSeuratObject(counts = counts, assay = "counts", meta.data = annotation)
tpm_assay <- Seurat::CreateAssayObject(counts = tpm)
seurat_obj[["tpm"]] <- tpm_assay
seurat_obj
#> An object of class Seurat
#> 2000 features across 300 samples within 2 assays
#> Active assay: counts (1000 features, 0 variable features)
#> 1 other assay present: tpm
It is possible to use a Seurat object to build a dataset; give the name of the assay containing count data in the counts slot, the name of the column in the meta table with the unique cell IDs and the name of the column in the meta table with the cell type identifier. Additionally you may give the name of the assay containing TPM data in the counts slot.
ds_seurat <- SimBu::dataset_seurat(
seurat_obj = seurat_obj,
count_assay = "counts",
cell_id_col = "ID",
cell_type_col = "cell_type",
tpm_assay = "tpm",
name = "seurat_dataset"
)
#> Filtering genes...
#> Created dataset.
It is possible to use an h5ad file directly, a file format which stores AnnData objects. As h5ad files can store cell specific information in the obs layer, no additional annotation input for SimBu is needed.
Note: if you want both counts and tpm data as input, you will have to provide two files; the cell annotation has to match between these two files. As SimBu expects the cells to be in the columns and genes/features in the rows of the input matrix, but this is not necessarily the case for anndata objects https://falexwolf.de/img/scanpy/anndata.svg, SimBu can handle h5ad files with cells in the obs or var layer. If your cells are in obs, use cells_in_obs=TRUE and FALSE otherwise. This will also automatically transpose the matrix.
To know, which columns in the cell annotation layer correspond to the cell identifiers and cell type labels, use the cell_id_col and cell_type_col parameters, respectively.\
As this function uses the SimBu python environment to read the h5ad files and extract the data, it may take some more time to initialize the conda environment at the first usage only.
# example h5ad file, where cell type info is stored in `obs` layer
#h5 <- system.file("extdata", "anndata.h5ad", package = "SimBu")
#ds_h5ad <- SimBu::dataset_h5ad(
# h5ad_file_counts = h5,
# name = "h5ad_dataset",
# cell_id_col = 0, # this will use the rownames of the metadata as cell identifiers
# cell_type_col = "group", # this will use the 'group' column of the metadata as cell type info
# cells_in_obs = TRUE # in case your cell information is stored in the var layer, switch to FALSE
#)
You are able to merge multiple datasets by using the dataset_merge function:
ds <- SimBu::dataset(
annotation = annotation,
count_matrix = counts,
tpm_matrix = tpm,
name = "test_dataset"
)
#> Filtering genes...
#> Created dataset.
ds_multiple <- SimBu::dataset_merge(
dataset_list = list(ds_seurat, ds),
name = "ds_multiple"
)
#> Filtering genes...
#> Created dataset.
The simulation object contains three named entries: \
bulk: a SummarizedExperiment object with the pseudo-bulk dataset(s) stored in the assays. They can be accessed like this:simulation <- SimBu::simulate_bulk(
data = ds_multiple,
scenario = "random",
scaling_factor = "NONE",
nsamples = 10, ncells = 100
)
#> Finished simulation.
dim(SummarizedExperiment::assays(simulation$bulk)[["bulk_counts"]])
#> [1] 1000 10
dim(SummarizedExperiment::assays(simulation$bulk)[["bulk_tpm"]])
#> [1] 1000 10
If only the count matrix was given to the dataset initially, only the bulk_counts assay is filled.
cell_fractions: a table where rows represent the simulated samples and columns represent the different simulated cell-types. The entries in the table store the specific cell-type fraction per sample.\
scaling_vector: a named list, with the used scaling value for each cell from the single cell dataset. \
sessionInfo()
#> R version 4.3.0 RC (2023-04-13 r84269)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 22.04.2 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.17-bioc/R/lib/libRblas.so
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
#>
#> 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
#> [9] LC_ADDRESS=C LC_TELEPHONE=C
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
#>
#> time zone: America/New_York
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats graphics grDevices utils datasets methods base
#>
#> other attached packages:
#> [1] curl_5.0.0 SeuratObject_4.1.3 Seurat_4.3.0 SimBu_1.2.0
#>
#> loaded via a namespace (and not attached):
#> [1] RColorBrewer_1.1-3 jsonlite_1.8.4
#> [3] magrittr_2.0.3 spatstat.utils_3.0-2
#> [5] farver_2.1.1 rmarkdown_2.21
#> [7] zlibbioc_1.46.0 vctrs_0.6.2
#> [9] ROCR_1.0-11 spatstat.explore_3.1-0
#> [11] RCurl_1.98-1.12 htmltools_0.5.5
#> [13] sass_0.4.5 sctransform_0.3.5
#> [15] parallelly_1.35.0 KernSmooth_2.23-20
#> [17] bslib_0.4.2 htmlwidgets_1.6.2
#> [19] ica_1.0-3 plyr_1.8.8
#> [21] plotly_4.10.1 zoo_1.8-12
#> [23] cachem_1.0.7 igraph_1.4.2
#> [25] mime_0.12 lifecycle_1.0.3
#> [27] pkgconfig_2.0.3 Matrix_1.5-4
#> [29] R6_2.5.1 fastmap_1.1.1
#> [31] GenomeInfoDbData_1.2.10 MatrixGenerics_1.12.0
#> [33] fitdistrplus_1.1-11 future_1.32.0
#> [35] shiny_1.7.4 digest_0.6.31
#> [37] colorspace_2.1-0 patchwork_1.1.2
#> [39] S4Vectors_0.38.0 tensor_1.5
#> [41] irlba_2.3.5.1 GenomicRanges_1.52.0
#> [43] labeling_0.4.2 progressr_0.13.0
#> [45] spatstat.sparse_3.0-1 fansi_1.0.4
#> [47] polyclip_1.10-4 abind_1.4-5
#> [49] httr_1.4.5 compiler_4.3.0
#> [51] withr_2.5.0 BiocParallel_1.34.0
#> [53] highr_0.10 MASS_7.3-59
#> [55] proxyC_0.3.3 DelayedArray_0.26.0
#> [57] tools_4.3.0 lmtest_0.9-40
#> [59] httpuv_1.6.9 future.apply_1.10.0
#> [61] goftest_1.2-3 glue_1.6.2
#> [63] nlme_3.1-162 promises_1.2.0.1
#> [65] grid_4.3.0 Rtsne_0.16
#> [67] cluster_2.1.4 reshape2_1.4.4
#> [69] generics_0.1.3 gtable_0.3.3
#> [71] spatstat.data_3.0-1 tidyr_1.3.0
#> [73] data.table_1.14.8 sp_1.6-0
#> [75] utf8_1.2.3 XVector_0.40.0
#> [77] spatstat.geom_3.1-0 BiocGenerics_0.46.0
#> [79] RcppAnnoy_0.0.20 ggrepel_0.9.3
#> [81] RANN_2.6.1 pillar_1.9.0
#> [83] stringr_1.5.0 later_1.3.0
#> [85] splines_4.3.0 dplyr_1.1.2
#> [87] lattice_0.21-8 deldir_1.0-6
#> [89] survival_3.5-5 tidyselect_1.2.0
#> [91] miniUI_0.1.1.1 pbapply_1.7-0
#> [93] knitr_1.42 gridExtra_2.3
#> [95] IRanges_2.34.0 SummarizedExperiment_1.30.0
#> [97] scattermore_0.8 stats4_4.3.0
#> [99] xfun_0.39 Biobase_2.60.0
#> [101] matrixStats_0.63.0 stringi_1.7.12
#> [103] lazyeval_0.2.2 yaml_2.3.7
#> [105] evaluate_0.20 codetools_0.2-19
#> [107] tibble_3.2.1 cli_3.6.1
#> [109] uwot_0.1.14 RcppParallel_5.1.7
#> [111] xtable_1.8-4 reticulate_1.28
#> [113] munsell_0.5.0 jquerylib_0.1.4
#> [115] Rcpp_1.0.10 GenomeInfoDb_1.36.0
#> [117] spatstat.random_3.1-4 globals_0.16.2
#> [119] png_0.1-8 parallel_4.3.0
#> [121] ellipsis_0.3.2 ggplot2_3.4.2
#> [123] sparseMatrixStats_1.12.0 bitops_1.0-7
#> [125] listenv_0.9.0 viridisLite_0.4.1
#> [127] scales_1.2.1 ggridges_0.5.4
#> [129] leiden_0.4.3 purrr_1.0.1
#> [131] rlang_1.1.0 cowplot_1.1.1