In this tutorial, we would like to demonstate the use of CluMSID with a publicly available LC-MS/MS data set deposited on MetaboLights. We chose data set MTBLS433 that can be accessed on the MetaboLights web page (https://www.ebi.ac.uk/metabolights/MTBLS433) and which has been published in the following article:
Kalogiouri, N. P., Alygizakis, N. A., Aalizadeh, R., & Thomaidis, N. S. (2016). Olive oil authenticity studies by target and nontarget LC–QTOF-MS combined with advanced chemometric techniques. Analytical and bioanalytical chemistry, 408(28), 7955-7970.
The authors analysed olive oil of various providence using reversed-phase ultra high performance liquid chromatography–electrospray ionisation quadrupole time of flight tandem mass spectrometry in negative mode with auto-MS/MS fragmentation.
As a representative pooled sample is not provided, we will combine MS2 data from several runs and use the peak picking done by the authors of the study for the merging of MS2 spectra. Some metabolite annotations are also included in the MTBLS433 data set which we will integrate into our analysis.
For demonstration, not all files from the analysis will be included into the analysis. Four data files from the data set have been chosen that represent olive oil samples from different regions in Greece:
YH1_GA7_01_10463.mzML: YH1, from Komi
AX1_GB5_01_10470.mzML: AX1, from Megaloxori
LP1_GB3_01_10467.mzML: LP1, from Moria
BR1_GB6_01_10471.mzML: BR1, from Agia Paraskevi
Note that these are mzML files that can be processed the exact same way as mzXML files.
Furthermore, we would like to use the peak picking and annotation data from the original authors which we can read from the file
First, we extract MS2 spectra from the respective files separately by using
extractMS2spectra(). Then, we just combine the resulting lists into one list using base R functionality:
YH1 <- system.file("extdata", "YH1_GA7_01_10463.mzML", package = "CluMSIDdata") AX1 <- system.file("extdata", "AX1_GB5_01_10470.mzML", package = "CluMSIDdata") LP1 <- system.file("extdata", "LP1_GB3_01_10467.mzML", package = "CluMSIDdata") BR1 <- system.file("extdata", "BR1_GB6_01_10471.mzML", package = "CluMSIDdata") YH1list <- extractMS2spectra(YH1) AX1list <- extractMS2spectra(AX1) LP1list <- extractMS2spectra(LP1) BR1list <- extractMS2spectra(BR1) raw_oillist <- c(YH1list, AX1list, LP1list, BR1list)
First, we import the peak list by reading the respective table and filtering for the relevant information. We only need the columns
rentention_time and we would like to replace
"unknown" with an empty field in the
metabolite_identification column. Plus, the features do not have a unique identifier in the table but we can easily generate that from m/z and RT. Note that the retention time in the raw data is given in seconds and in the data table it is in minutes, so we have to convert. For the sake of consistency, we also change the column names. We use
tidyverse syntax but users can do as they prefer.
raw_mtbls_df <- system.file("extdata", "m_mtbls433_metabolite_profiling_mass_spectrometry_v2_maf.tsv", package = "CluMSIDdata") require(magrittr) mtbls_df <- readr::read_delim(raw_mtbls_df, "\t") %>% dplyr::mutate(metabolite_identification = stringr::str_replace(metabolite_identification, "unknown", "")) %>% dplyr::mutate(id = paste0("M", mass_to_charge, "T", retention_time)) %>% dplyr::mutate(retention_time = retention_time * 60) %>% dplyr::select(id, mass_to_charge, retention_time, metabolite_identification) %>% dplyr::rename(mz = mass_to_charge, rt = retention_time, annotation = metabolite_identification)
This peak list, or its first three columns, can now be used to merge spectra. We exclude spectra that do not match to any of the peaks in the peak list. As we are not very familiar with instrumental setup, we set the limits for retention time and m/z deviation a little wider. To make an educated guess on mass accuracy, we take a look at an identified metabolite, its measured m/z and its theoretical m/z. We use arachidic acid [M-H]-, whose theoretical m/z is 311.2956:
## Define theoretical m/z th <- 311.2956 ## Get measured m/z for arachidic acid data from mtbls_df ac <- mtbls_df %>% dplyr::filter(annotation == "Arachidic acid") %>% dplyr::select(mz) %>% as.numeric() ## Calculate relative m/z difference in ppm abs(th - ac)/th * 1e6 #>  28.91143
So, we will work with an an m/z tolerance of 30ppm (which seems rather high for a high resolution mass spectrometer).
A 30ppm mass accuracy necessitates an m/z tolerance of 60ppm, because deviations can go both ways:
To add annotations, we use
mtbls_df as well, as described in the General Tutorial:
For the generation of the distance matrix, too, we use an m/z tolerance of 30ppm:
To explore the data, we have a look at a cluster dendrogram:
Since it was not in the focus of their study, the authors identified only a few metabolites. If we look at the positions of these metabolites in the cluster dendrogram, we see that the poly-unsaturated fatty acids alpha-linolenic acid and alpha-linolenic acid are nicely separated from the saturated fatty acids stearic acid and arachidic acid. We would expect the latter to cluster together but a look at the spectra reveals that stearic acid barely produces any fragment ions and mainly contains the unfragmented [M-H]- parent ion:
In contrast, arachidic acid produces a much richer spectrum:
Inspecting the features that cluster close to arachidic acid shows that many of them have an exact m/z that conforms with other fatty acids of different chain length or saturation (within the m/z tolerance), e.g. the neighbouring feature M339.2125T15.32 that could be arachidonic acid [M+Cl]-.
Looking at oleic acid [M-H]-, we see that it clusters very closely to M563.5254T13.93, whose m/z is consistent with oleic acid [2M-H]- and some other possible adducts.
As a last example, the only identified metabolite that does not belong to the class of fatty acids is acetosyringone, a phenolic secondary plant metabolite. It forms part of a rather dense cluster in the dendrogram, suggesting high spectral similarities to the other members of the cluster. It would be interesting to try to annotate more of these metabolite to find out if they are also phenolic compounds.
In conclusion, we demonstrated how to use
CluMSID with a publicly available data set from the MetaboLights repository and how to include external information such as peak lists or feature annotations into a
CluMSID workflow. In doing so, we had a look on a few example findings that could help to annotate more of the features in the data set and thereby showed the usefulness of
CluMSID for samples very different from the ones in the other tutorials.
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: #>  LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C #>  LC_TIME=en_GB LC_COLLATE=C #>  LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8 #>  LC_PAPER=en_US.UTF-8 LC_NAME=C #>  LC_ADDRESS=C LC_TELEPHONE=C #>  LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C #> #> time zone: America/New_York #> tzcode source: system (glibc) #> #> attached base packages: #>  stats4 stats graphics grDevices utils datasets methods #>  base #> #> other attached packages: #>  magrittr_2.0.3 metaMSdata_1.35.0 metaMS_1.36.0 #>  CAMERA_1.56.0 xcms_3.22.0 MSnbase_2.26.0 #>  ProtGenerics_1.32.0 S4Vectors_0.38.0 mzR_2.34.0 #>  Rcpp_1.0.10 BiocParallel_1.34.0 Biobase_2.60.0 #>  BiocGenerics_0.46.0 CluMSIDdata_1.15.0 CluMSID_1.16.0 #> #> loaded via a namespace (and not attached): #>  RColorBrewer_1.1-3 rstudioapi_0.14 #>  jsonlite_1.8.4 farver_2.1.1 #>  MALDIquant_1.22.1 rmarkdown_2.21 #>  zlibbioc_1.46.0 vctrs_0.6.2 #>  multtest_2.56.0 RCurl_1.98-1.12 #>  base64enc_0.1-3 htmltools_0.5.5 #>  Formula_1.2-5 mzID_1.38.0 #>  sass_0.4.5 KernSmooth_2.23-20 #>  bslib_0.4.2 htmlwidgets_1.6.2 #>  plyr_1.8.8 impute_1.74.0 #>  plotly_4.10.1 cachem_1.0.7 #>  igraph_1.4.2 lifecycle_1.0.3 #>  iterators_1.0.14 pkgconfig_2.0.3 #>  Matrix_1.5-4 R6_2.5.1 #>  fastmap_1.1.1 GenomeInfoDbData_1.2.10 #>  MatrixGenerics_1.12.0 clue_0.3-64 #>  digest_0.6.31 pcaMethods_1.92.0 #>  colorspace_2.1-0 GGally_2.1.2 #>  reshape_0.8.9 Hmisc_5.0-1 #>  GenomicRanges_1.52.0 fansi_1.0.4 #>  httr_1.4.5 compiler_4.3.0 #>  bit64_4.0.5 withr_2.5.0 #>  doParallel_1.0.17 htmlTable_2.4.1 #>  backports_1.4.1 highr_0.10 #>  gplots_3.1.3 MASS_7.3-59 #>  DelayedArray_0.26.0 gtools_3.9.4 #>  caTools_1.18.2 tools_4.3.0 #>  foreign_0.8-84 ape_5.7-1 #>  nnet_7.3-18 glue_1.6.2 #>  dbscan_1.1-11 nlme_3.1-162 #>  grid_4.3.0 checkmate_2.1.0 #>  cluster_2.1.4 generics_0.1.3 #>  gtable_0.3.3 tzdb_0.3.0 #>  preprocessCore_1.62.0 tidyr_1.3.0 #>  hms_1.1.3 sna_2.7-1 #>  data.table_1.14.8 utf8_1.2.3 #>  XVector_0.40.0 RANN_2.6.1 #>  foreach_1.5.2 pillar_1.9.0 #>  stringr_1.5.0 vroom_1.6.1 #>  limma_3.56.0 robustbase_0.95-1 #>  splines_4.3.0 dplyr_1.1.2 #>  lattice_0.21-8 bit_4.0.5 #>  survival_3.5-5 tidyselect_1.2.0 #>  RBGL_1.76.0 knitr_1.42 #>  gridExtra_2.3 IRanges_2.34.0 #>  SummarizedExperiment_1.30.0 xfun_0.39 #>  matrixStats_0.63.0 DEoptimR_1.0-12 #>  stringi_1.7.12 statnet.common_4.8.0 #>  lazyeval_0.2.2 yaml_2.3.7 #>  evaluate_0.20 codetools_0.2-19 #>  archive_1.1.5 MsCoreUtils_1.12.0 #>  tibble_3.2.1 BiocManager_1.30.20 #>  graph_1.78.0 cli_3.6.1 #>  affyio_1.70.0 rpart_4.1.19 #>  munsell_0.5.0 jquerylib_0.1.4 #>  network_1.18.1 GenomeInfoDb_1.36.0 #>  MassSpecWavelet_1.66.0 coda_0.19-4 #>  XML_3.99-0.14 parallel_4.3.0 #>  readr_2.1.4 ggplot2_3.4.2 #>  bitops_1.0-7 viridisLite_0.4.1 #>  MsFeatures_1.8.0 scales_1.2.1 #>  affy_1.78.0 crayon_1.5.2 #>  ncdf4_1.21 purrr_1.0.1 #>  rlang_1.1.0 vsn_3.68.0