library(dplyr)
brauer_augmented <- brauer_2008_tidy %>%
add_pcs(npcs = 5) %>%
tomic_to("triple_omic")
tomic_table <- brauer_augmented$samples
plot_bivariate(tomic_table, "PC1", "PC2", "nutrient", "nutrient", 0.5, 10)
plot_bivariate(tomic_table, "PC1", "PC2", NULL)
plot_bivariate(tomic_table, "nutrient", "PC2", "nutrient")
Run the code above in your browser using DataLab