A tool kit for pre-treatment, modelling, feature selection and correlation analyses of metabolomics data.
This package provides a tool kit of methods for metabolomics analyses that includes:
- data pre-treatment
- multivariate and univariate modelling/data mining techniques
- correlation analysis
metabolyseR package can be installed from GitHub using the following:
The package documentation can be browsed online at https://jasenfinch.github.io/metabolyseR/; however, if users want to compile the vignettes locally, the following can be used.
remotes::install_github('jasenfinch/metabolyseR',build_vignettes = TRUE,dependencies = TRUE)
The package documentation can be browsed online at https://jasenfinch.github.io/metabolyseR/.
If this is your first time using
metabolyseR see the Introduction vignette or the quick start analysis below for information on how to get started.
This example analysis will use the
abr1 data set from the metaboData package. It is nominal mass flow-injection mass spectrometry (FI-MS) fingerprinting data from a plant-pathogen infection time course experiment. The analysis will also include use of the pipe
%>% from the magrittr package. First load the necessary packages.
For this example we will use only the negative acquisition mode data (
abr1$neg) and sample meta-information (
abr1$fact). Create an
AnalysisData class object using the following:
d <- analysisData(abr1$neg,abr1$fact)
The data includes 120 samples and 2000 mass spectral features as shown below.
d #> #> AnalysisData object containing: #> #> Samples: 120 #> Features: 2000 #> Info: 9
clsAvailable() function can be used to identify the columns available in our meta-information table.
clsAvailable(d) #>  "injorder" "pathcdf" "filecdf" "name.org" "remark" "name" "rep" #>  "day" "class"
For this analysis, we will be using the infection time course class information contained in the
day column. This can be extracted and the class frequencies tabulated using the following:
As can be seen above, the experiment is made up of six infection time point classes that includes a healthy control class (
H) and five day infection time points (
1-5), each with 20 replicates.
For data pre-treatment prior to statistical analysis, a two-thirds maximum class occupancy filter can be applied. Features where the maximum proportion of non-missing data per class is above two-thirds are retained. A total ion count normalisation will also be applied.
d #> #> AnalysisData object containing: #> #> Samples: 120 #> Features: 1760 #> Info: 9
This has reduced the data set to 1760 relevant features.
The structure of the data can be visualised using both unsupervised and supervised methods. For instance, the first two principle components from a principle component analysis (PCA) of the data with the sample points coloured by infection class can be plotted using:
plotPCA(d,cls = 'day',xAxis = 'PC1',yAxis = 'PC2')
And similarly, multidimensional scaling (MDS) of sample proximity values from a supervised random forest classification model along with receiver operator characteristic (ROC) curves.
plotSupervisedRF(d,cls = 'day')
A progression can clearly be seen from the earliest to latest infected time points.
For feature selection, one-way analysis of variance (ANOVA) can be performed for each feature to identify features significantly explanatory for the infection time point.
A table of the significantly explanatory features can be extracted with a bonferroni correction adjusted p value < 0.05 using:
explan_feat <- explanatoryFeatures(anova_results,threshold = 0.05)
explan_feat #> # A tibble: 379 × 10 #> response comparison feature term df sumsq meansq statistic p.value #> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 day 1~2~3~4~5~H N341 response 5 9.17e7 1.83e7 137. 1.55e-46 #> 2 day 1~2~3~4~5~H N133 response 5 1.65e7 3.31e6 126. 8.63e-45 #> 3 day 1~2~3~4~5~H N163 response 5 1.42e7 2.84e6 117. 2.95e-43 #> 4 day 1~2~3~4~5~H N1087 response 5 5.72e5 1.14e5 99.8 5.61e-40 #> 5 day 1~2~3~4~5~H N171 response 5 5.31e4 1.06e4 95.7 3.84e-39 #> 6 day 1~2~3~4~5~H N513 response 5 7.99e5 1.60e5 95.3 4.78e-39 #> 7 day 1~2~3~4~5~H N1025 response 5 6.57e5 1.31e5 91.0 3.91e-38 #> 8 day 1~2~3~4~5~H N342 response 5 8.76e5 1.75e5 90.3 5.32e-38 #> 9 day 1~2~3~4~5~H N1083 response 5 1.21e7 2.42e6 89.0 1.06e-37 #> 10 day 1~2~3~4~5~H N1085 response 5 2.59e6 5.18e5 83.4 1.92e-36 #> # ℹ 369 more rows #> # ℹ 1 more variable: adjusted.p.value <dbl>
The ANOVA has identified 379 features significantly explanatory over the infection time course. A heat map of the mean relative intensity for each class of these explanatory features can be plotted to visualise their trends between the infection time point classes.
plotExplanatoryHeatmap(anova_results, threshold = 0.05, featureNames = FALSE)
Many of the explanatory features can be seen to be most highly abundant in the final infection time point
Finally, box plots of the trends of individual features can be plotted, such as the
N341 feature below.
plotFeature(anova_results,feature = 'N341',cls = 'day')