# Clustering Spectra from High Resolution DI-MS/MS Data Using CluMSID

#### Tobias Depke

#### November 01, 2022

## Introduction

Although originally developed for liquid chromatography-tandem mass spectrometry (LC-MS/MS) data, CluMSID can also be used with direct infusion-tandem mass spectrometry (DI-MS/MS) data.

Generally, the missing retention time dimension makes feature annotation in metabolomics harder but if only direct infusion data is at hand, CluMSID can help to get an overview of the chemodiversity of a sample measured by DI-MS/MS.

In this example, we will use a similar sample (1uL Pseudomonas aeruginosa PA14 cell extract) as in the General Tutorial, measured on the same machine, a Bruker maxisHD qTOF operated in ESI-(+) mode with auto-MS/MS but without chromatographic separation.

## Data import

We load the file from the `CluMSIDdata` package:

    library(CluMSID)
    library(CluMSIDdata)

    DIfile <- system.file("extdata",
                            "PA14_maxis_DI.mzXML",
                            package = "CluMSIDdata")

## Data preprocessing

The extraction of spectra works the same way as with LC-MS/MS data:

    ms2list <- extractMS2spectra(DIfile)
    length(ms2list)
    #> [1] 373

Merging of redundant spectra is less straightforward when retention time is not available. Depending on the MS/MS method it can be next to impossible to decide whether two spectra with the same precursor m/z and similar fragmentation patterns derive from the same analyte or from two different but structurally similar ones.

In this example, we would like to merge spectra with identical precursor ions only if they were recorded one right after another. We can do so by setting `rt_tolerance` to 1 second:

    featlist <- mergeMS2spectra(ms2list, rt_tolerance = 1)
    length(featlist)
    #> [1] 349

We see that we have hardly reduced the number of spectra in the list. If we would decide to merge all spectra with identical precursor m/z from the entire run, we could do so by setting `rt_tolerance` to the duration of the run, in this case approx. 250 seconds:

    testlist <- mergeMS2spectra(ms2list, rt_tolerance = 250)
    length(testlist)
    #> [1] 75

The resulting number of spectra is drastically lower but the danger of merging spectra that do not actually derive from the same analyte is also very big.

## Generation of distance matrix

In this very explorative example, we skip the integration of previous knowledge on feature identities and generate a distance matrix right away:

    distmat <- distanceMatrix(featlist)

## Data exploration

Starting from this distance matrix, we can use all the data exploration functions that `CluMSID` offers. In this example workflow, we look at a cluster dendrogram:

    HCplot(distmat, cex = 0.5)

Figure 1: Circularised dendrogram as a result of agglomerative hierarchical clustering with average linkage as agglomeration criterion based on MS2 spectra similarities of the DI-MS/MS example data set. Each leaf represents one feature and colours encode cluster affiliation of the features. Leaf labels display feature IDs, along with feature annotations, if existent. Distance from the central point is indicative of the height of the dendrogram.

It is directly obvious that we have some spectra that are nearly identical and thus most likely derive from the same analyte, e.g. the many spectra with a precursor m/z of 270.19. But we still see nice clustering of similar spectra with different precursor m/z, e.g. the huge gray cluster that contains a lot of different alkylquinolone type metabolites (see General Tutorial).

In conclusion, CluMSID is very useful to provide an overview of spectral similarities within DI-MS/MS runs but wherever annotation is in the focus, one should not do without the additional layer of information created by chromatographic separation.

# Session Info

    sessionInfo()
    #> R version 4.2.1 (2022-06-23 ucrt)
    #> Platform: x86_64-w64-mingw32/x64 (64-bit)
    #> Running under: Windows Server x64 (build 20348)
    #>
    #> Matrix products: default
    #>
    #> locale:
    #> [1] LC_COLLATE=C
    #> [2] LC_CTYPE=English_United States.utf8
    #> [3] LC_MONETARY=English_United States.utf8
    #> [4] LC_NUMERIC=C
    #> [5] LC_TIME=English_United States.utf8
    #>
    #> attached base packages:
    #> [1] stats     graphics  grDevices utils     datasets  methods   base
    #>
    #> other attached packages:
    #> [1] CluMSIDdata_1.13.0 CluMSID_1.14.0
    #>
    #> loaded via a namespace (and not attached):
    #>  [1] nlme_3.1-160          ProtGenerics_1.30.0   bitops_1.0-7
    #>  [4] httr_1.4.4            doParallel_1.0.17     RColorBrewer_1.1-3
    #>  [7] MSnbase_2.24.0        tools_4.2.1           bslib_0.4.0
    #> [10] utf8_1.2.2            R6_2.5.1              affyio_1.68.0
    #> [13] KernSmooth_2.23-20    lazyeval_0.2.2        DBI_1.1.3
    #> [16] BiocGenerics_0.44.0   colorspace_2.0-3      tidyselect_1.2.0
    #> [19] GGally_2.1.2          compiler_4.2.1        preprocessCore_1.60.0
    #> [22] cli_3.4.1             Biobase_2.58.0        network_1.18.0
    #> [25] plotly_4.10.0         sass_0.4.2            caTools_1.18.2
    #> [28] scales_1.2.1          affy_1.76.0           stringr_1.4.1
    #> [31] digest_0.6.30         dbscan_1.1-11         rmarkdown_2.17
    #> [34] pkgconfig_2.0.3       htmltools_0.5.3       highr_0.9
    #> [37] fastmap_1.1.0         limma_3.54.0          htmlwidgets_1.5.4
    #> [40] rlang_1.0.6           impute_1.72.0         jquerylib_0.1.4
    #> [43] generics_0.1.3        jsonlite_1.8.3        mzID_1.36.0
    #> [46] statnet.common_4.7.0  BiocParallel_1.32.0   gtools_3.9.3
    #> [49] dplyr_1.0.10          magrittr_2.0.3        MALDIquant_1.21
    #> [52] Rcpp_1.0.9            munsell_0.5.0         S4Vectors_0.36.0
    #> [55] fansi_1.0.3           ape_5.6-2             MsCoreUtils_1.10.0
    #> [58] lifecycle_1.0.3       vsn_3.66.0            stringi_1.7.8
    #> [61] yaml_2.3.6            MASS_7.3-58.1         zlibbioc_1.44.0
    #> [64] gplots_3.1.3          plyr_1.8.7            grid_4.2.1
    #> [67] parallel_4.2.1        lattice_0.20-45       mzR_2.32.0
    #> [70] sna_2.7               knitr_1.40            pillar_1.8.1
    #> [73] codetools_0.2-18      stats4_4.2.1          XML_3.99-0.12
    #> [76] glue_1.6.2            evaluate_0.17         pcaMethods_1.90.0
    #> [79] data.table_1.14.4     BiocManager_1.30.19   vctrs_0.5.0
    #> [82] foreach_1.5.2         tidyr_1.2.1           purrr_0.3.5
    #> [85] gtable_0.3.1          clue_0.3-62           reshape_0.8.9
    #> [88] assertthat_0.2.1      cachem_1.0.6          ggplot2_3.3.6
    #> [91] xfun_0.34             coda_0.19-4           viridisLite_0.4.1
    #> [94] ncdf4_1.19            tibble_3.1.8          iterators_1.0.14
    #> [97] IRanges_2.32.0        cluster_2.1.4