library(MultiAssayExperiment)
library(HDF5Array)
library(SummarizedExperiment)The HDF5Array package provides an on-disk representation of large datasets
without the need to load them into memory. Convenient lazy evaluation
operations allow the user to manipulate such large data files based on
metadata. The DelayedMatrix class in the DelayedArray package provides a
way to connect to a large matrix that is stored on disk.
First, we create a small matrix for constructing the DelayedMatrix class.
smallMatrix <- matrix(rnorm(10e5), ncol = 20)We add rownames and column names to the matrix object for compatibility with
the MultiAssayExperiment representation.
rownames(smallMatrix) <- paste0("GENE", seq_len(nrow(smallMatrix)))
colnames(smallMatrix) <- paste0("SampleID", seq_len(ncol(smallMatrix)))Here we use the DelayedArray constructor function to create a
DelayedMatrix object.
smallMatrix <- DelayedArray(smallMatrix)
class(smallMatrix)## [1] "DelayedMatrix"
## attr(,"package")
## [1] "DelayedArray"# show method
smallMatrix## <50000 x 20> matrix of class DelayedMatrix and type "double":
## SampleID1 SampleID2 SampleID3 ... SampleID19 SampleID20
## GENE1 -0.37682684 1.92407692 2.08513020 . -0.17432473 -1.69230337
## GENE2 -1.88997899 -0.69673953 0.46037713 . 1.18535668 -0.74434811
## GENE3 0.55906635 -1.31652582 0.60695257 . -1.52077024 0.33122388
## GENE4 1.66434179 0.26056028 -1.07052923 . -0.66173699 -2.98718009
## GENE5 0.08370489 -0.26143386 1.60537827 . -0.06882477 -0.52515314
## ... . . . . . .
## GENE49996 -0.5358714 0.9501421 1.2411772 . 0.2728838 2.1721876
## GENE49997 0.2945771 -0.9898067 -0.8867515 . 0.2232001 1.9830268
## GENE49998 0.8862320 0.9010721 1.1515585 . 1.1045424 -0.9350864
## GENE49999 -0.9419942 0.8445224 -0.6232059 . -0.6475720 0.6228594
## GENE50000 1.3155097 -0.6261615 0.6987289 . -0.2088453 -0.2230875dim(smallMatrix)## [1] 50000 20Finally, the rhdf5 package stores dimnames in a standard location.
In order to make use of this functionality, we would use writeHDF5Array
with the with.dimnames argument:
testh5 <- tempfile(fileext = ".h5")
writeHDF5Array(smallMatrix, filepath = testh5, name = "smallMatrix",
with.dimnames = TRUE)## <50000 x 20> matrix of class HDF5Matrix and type "double":
## SampleID1 SampleID2 SampleID3 ... SampleID19 SampleID20
## GENE1 -0.37682684 1.92407692 2.08513020 . -0.17432473 -1.69230337
## GENE2 -1.88997899 -0.69673953 0.46037713 . 1.18535668 -0.74434811
## GENE3 0.55906635 -1.31652582 0.60695257 . -1.52077024 0.33122388
## GENE4 1.66434179 0.26056028 -1.07052923 . -0.66173699 -2.98718009
## GENE5 0.08370489 -0.26143386 1.60537827 . -0.06882477 -0.52515314
## ... . . . . . .
## GENE49996 -0.5358714 0.9501421 1.2411772 . 0.2728838 2.1721876
## GENE49997 0.2945771 -0.9898067 -0.8867515 . 0.2232001 1.9830268
## GENE49998 0.8862320 0.9010721 1.1515585 . 1.1045424 -0.9350864
## GENE49999 -0.9419942 0.8445224 -0.6232059 . -0.6475720 0.6228594
## GENE50000 1.3155097 -0.6261615 0.6987289 . -0.2088453 -0.2230875To see the file structure we use h5ls:
h5ls(testh5)## group name otype dclass dim
## 0 / .smallMatrix_dimnames H5I_GROUP
## 1 /.smallMatrix_dimnames 1 H5I_DATASET STRING 50000
## 2 /.smallMatrix_dimnames 2 H5I_DATASET STRING 20
## 3 / smallMatrix H5I_DATASET FLOAT 50000 x 20Note that a large matrix from an HDF5 file can also be loaded using the
HDF5ArraySeed and DelayedArray functions.
hdf5Data <- HDF5ArraySeed(file = testh5, name = "smallMatrix")
newDelayedMatrix <- DelayedArray(hdf5Data)
class(newDelayedMatrix)## [1] "HDF5Matrix"
## attr(,"package")
## [1] "HDF5Array"newDelayedMatrix## <50000 x 20> matrix of class HDF5Matrix and type "double":
## SampleID1 SampleID2 SampleID3 ... SampleID19 SampleID20
## GENE1 -0.37682684 1.92407692 2.08513020 . -0.17432473 -1.69230337
## GENE2 -1.88997899 -0.69673953 0.46037713 . 1.18535668 -0.74434811
## GENE3 0.55906635 -1.31652582 0.60695257 . -1.52077024 0.33122388
## GENE4 1.66434179 0.26056028 -1.07052923 . -0.66173699 -2.98718009
## GENE5 0.08370489 -0.26143386 1.60537827 . -0.06882477 -0.52515314
## ... . . . . . .
## GENE49996 -0.5358714 0.9501421 1.2411772 . 0.2728838 2.1721876
## GENE49997 0.2945771 -0.9898067 -0.8867515 . 0.2232001 1.9830268
## GENE49998 0.8862320 0.9010721 1.1515585 . 1.1045424 -0.9350864
## GENE49999 -0.9419942 0.8445224 -0.6232059 . -0.6475720 0.6228594
## GENE50000 1.3155097 -0.6261615 0.6987289 . -0.2088453 -0.2230875DelayedMatrix with MultiAssayExperimentA DelayedMatrix alone conforms to the MultiAssayExperiment API requirements.
Shown below, the DelayedMatrix can be put into a named list and passed into
the MultiAssayExperiment constructor function.
HDF5MAE <- MultiAssayExperiment(experiments = list(smallMatrix = smallMatrix))
sampleMap(HDF5MAE)## DataFrame with 20 rows and 3 columns
## assay primary colname
## <factor> <character> <character>
## 1 smallMatrix SampleID1 SampleID1
## 2 smallMatrix SampleID2 SampleID2
## 3 smallMatrix SampleID3 SampleID3
## 4 smallMatrix SampleID4 SampleID4
## 5 smallMatrix SampleID5 SampleID5
## ... ... ... ...
## 16 smallMatrix SampleID16 SampleID16
## 17 smallMatrix SampleID17 SampleID17
## 18 smallMatrix SampleID18 SampleID18
## 19 smallMatrix SampleID19 SampleID19
## 20 smallMatrix SampleID20 SampleID20colData(HDF5MAE)## DataFrame with 20 rows and 0 columnsSummarizedExperiment with DelayedMatrix backendA more information rich DelayedMatrix can be created when used in conjunction
with the SummarizedExperiment class and it can even include rowRanges.
The flexibility of the MultiAssayExperiment API supports classes with
minimal requirements. Additionally, this SummarizedExperiment with the
DelayedMatrix backend can be part of a bigger MultiAssayExperiment object.
Below is a minimal example of how this would work:
HDF5SE <- SummarizedExperiment(assays = smallMatrix)
assay(HDF5SE)## <50000 x 20> matrix of class DelayedMatrix and type "double":
## SampleID1 SampleID2 SampleID3 ... SampleID19 SampleID20
## GENE1 -0.37682684 1.92407692 2.08513020 . -0.17432473 -1.69230337
## GENE2 -1.88997899 -0.69673953 0.46037713 . 1.18535668 -0.74434811
## GENE3 0.55906635 -1.31652582 0.60695257 . -1.52077024 0.33122388
## GENE4 1.66434179 0.26056028 -1.07052923 . -0.66173699 -2.98718009
## GENE5 0.08370489 -0.26143386 1.60537827 . -0.06882477 -0.52515314
## ... . . . . . .
## GENE49996 -0.5358714 0.9501421 1.2411772 . 0.2728838 2.1721876
## GENE49997 0.2945771 -0.9898067 -0.8867515 . 0.2232001 1.9830268
## GENE49998 0.8862320 0.9010721 1.1515585 . 1.1045424 -0.9350864
## GENE49999 -0.9419942 0.8445224 -0.6232059 . -0.6475720 0.6228594
## GENE50000 1.3155097 -0.6261615 0.6987289 . -0.2088453 -0.2230875MultiAssayExperiment(list(HDF5SE = HDF5SE))## A MultiAssayExperiment object of 1 listed
## experiment with a user-defined name and respective class.
## Containing an ExperimentList class object of length 1:
## [1] HDF5SE: SummarizedExperiment with 50000 rows and 20 columns
## Functionality:
## experiments() - obtain the ExperimentList instance
## colData() - the primary/phenotype DataFrame
## sampleMap() - the sample coordination DataFrame
## `$`, `[`, `[[` - extract colData columns, subset, or experiment
## *Format() - convert into a long or wide DataFrame
## assays() - convert ExperimentList to a SimpleList of matrices
## exportClass() - save data to flat filesAdditional scenarios are currently in development where an HDF5Matrix is
hosted remotely. Many opportunities exist when considering on-disk and off-disk
representations of data with MultiAssayExperiment.
sessionInfo()## R version 4.2.0 RC (2022-04-19 r82224)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.4 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.15-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.15-bioc/R/lib/libRlapack.so
##
## 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
##
## attached base packages:
## [1] stats4 stats graphics grDevices utils datasets methods
## [8] base
##
## other attached packages:
## [1] HDF5Array_1.24.0 rhdf5_2.40.0
## [3] DelayedArray_0.22.0 Matrix_1.4-1
## [5] survminer_0.4.9 ggpubr_0.4.0
## [7] ggplot2_3.3.5 survival_3.3-1
## [9] UpSetR_1.4.0 RaggedExperiment_1.20.0
## [11] MultiAssayExperiment_1.22.0 SummarizedExperiment_1.26.0
## [13] Biobase_2.56.0 GenomicRanges_1.48.0
## [15] GenomeInfoDb_1.32.0 IRanges_2.30.0
## [17] S4Vectors_0.34.0 BiocGenerics_0.42.0
## [19] MatrixGenerics_1.8.0 matrixStats_0.62.0
## [21] BiocStyle_2.24.0
##
## loaded via a namespace (and not attached):
## [1] ggtext_0.1.1 bitops_1.0-7 R.cache_0.15.0
## [4] tools_4.2.0 backports_1.4.1 bslib_0.3.1
## [7] utf8_1.2.2 R6_2.5.1 DBI_1.1.2
## [10] colorspace_2.0-3 rhdf5filters_1.8.0 withr_2.5.0
## [13] tidyselect_1.1.2 gridExtra_2.3 compiler_4.2.0
## [16] cli_3.3.0 xml2_1.3.3 labeling_0.4.2
## [19] bookdown_0.26 sass_0.4.1 scales_1.2.0
## [22] survMisc_0.5.6 stringr_1.4.0 digest_0.6.29
## [25] rmarkdown_2.14 R.utils_2.11.0 XVector_0.36.0
## [28] pkgconfig_2.0.3 htmltools_0.5.2 fastmap_1.1.0
## [31] highr_0.9 rlang_1.0.2 jquerylib_0.1.4
## [34] farver_2.1.0 generics_0.1.2 zoo_1.8-10
## [37] jsonlite_1.8.0 dplyr_1.0.8 car_3.0-12
## [40] R.oo_1.24.0 RCurl_1.98-1.6 magrittr_2.0.3
## [43] GenomeInfoDbData_1.2.8 Rhdf5lib_1.18.0 Rcpp_1.0.8.3
## [46] munsell_0.5.0 fansi_1.0.3 abind_1.4-5
## [49] lifecycle_1.0.1 R.methodsS3_1.8.1 stringi_1.7.6
## [52] yaml_2.3.5 carData_3.0-5 zlibbioc_1.42.0
## [55] plyr_1.8.7 grid_4.2.0 crayon_1.5.1
## [58] lattice_0.20-45 splines_4.2.0 gridtext_0.1.4
## [61] magick_2.7.3 knitr_1.38 pillar_1.7.0
## [64] markdown_1.1 ggsignif_0.6.3 glue_1.6.2
## [67] evaluate_0.15 data.table_1.14.2 BiocManager_1.30.17
## [70] vctrs_0.4.1 gtable_0.3.0 purrr_0.3.4
## [73] tidyr_1.2.0 km.ci_0.5-6 assertthat_0.2.1
## [76] xfun_0.30 xtable_1.8-4 broom_0.8.0
## [79] rstatix_0.7.0 tibble_3.1.6 KMsurv_0.1-5
## [82] ellipsis_0.3.2 R.rsp_0.44.0