RDA influences from microViz

[antagomir]

The microViz package has nice capabilities for phyloseq.

Explore the possibilities for providing visualizations similar to this and beyond using miaViz, e.g ord_plot

library(mia)

# Get demo data
data(hitchip1006, package="miaTime")
ps <- makePhyloseqFromTreeSE(hitchip1006)
ps <- microbiome::transform(ps, "clr")

# Move to numeric
sample_data(ps)$sex <- as.numeric(as.factor(sample_data(ps)$sex))
sample_data(ps)$nationality <- as.numeric(as.factor(sample_data(ps)$nationality))

library(microViz)
p <- ordplot <- ps %>% 
  ord_calc(constraints = c("age","sex")) %>%
  microViz::ord_plot(colour = "diversity", plot_taxa = 1:8)

print(p)