Code used to create statistical tables and plots used in the manuscript "Formula with Added Sugars Significantly Alters Gut Microbiota and Cognitive Development in Hispanic Infants". The aim of the research is to determine differences in the gut microbiota who consume lactose-reduced formula (a formula that replaces lactose with added sugar) compared to traditional formula and breastfeeding.
This program was tested and developed on the macOS Catalina 10.15 system. The following packages in R are necessary for this package: R (>= 3.5.0) data.table ggplot2 ggsignif phyloseq dplyr stringr readr
RStudio Version 1.2.5019 is optional.
To install type the following lines in R:
install.packages("devtools")
library("devtools")
You will then need to download the R package "infantMilkConsumption" using the following lines:
install_github("rbarner/infantMilkConsumption")
library("infantMilkConsumption")
(The runtime of each of these functions should be <30 seconds each.)
compute_possibleCovariates_milkType()
This command will give us the means of the three groups and an p-value from an ANOVA testing for differences in means (or p-value from chi-square test if categorical). We see that there are significant differences in age in days of baby ("baby_age"), BMI of mother ("mom_current_BMI") and consumption of fruit/juice of infants at 6 months ("fruit_incj_Inf_1m6m") so we will include these variables in the statistical model.
compute_taxa_milkType_association()
This will give us the means, differences between TF and BF groups, differences between ASF and BF groups and p-values associated with those differences. The phylum Actinobacteria has the greatest statistically significant difference so we will plot this graph.
plot_taxa_milkType_association()
We will also compute differences in alpha- and beta- diversities
compute_alphaDiversity_milkType_association()
compute_betaDiversity_milkType_association()
compute_keggModule_milkType_association()
This will give us the means, differences between TF and BF groups, differences between ASF and BF groups and p-values associated with those differences. The KEGG module M00221 is "putative simple sugar transport system" and with the increase in glucose in the ASF group, it is possible that this is high in the ASF group.
plot_keggModule_milkType_association()
compute_bayley_milkType_association()
From this we see that the difference in cognitive score ("bsid_cog_ss") in ASF and BF groups is statistically significant so we will create a boxplot to visualize these differences
plot_bayley_milkType_association()
We also see that the difference in the score of fine motor skills ("bsid_mot_fm_ss") between ASF and BF groups is also statistically significant so we will create a boxplot to visualize this difference as well.
plot_bayley_milkType_association(variable = "bsid_mot_fm_ss",variableName = "Fine Motor (FM) Scaled Score")
We also test for differences in growth measures among the groups using the following line:
compute_somaticGrowth_milkType_association()
This package is licensed under GNU General Public License (GPL-3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.