library(rbiom)
biom <- rarefy(hmp50)
biom$metadata$otu_cluster <- taxa_clusters(biom)
pull(biom, 'otu_cluster')[1:10]
bdiv_ord_plot(biom, layers = "p", stat.by = "otu_cluster")
Run the code above in your browser using DataLab