Creates a list of dataframes at different taxonomic levels.
taxa_pooler_mcola(x)phyloseq-class object
# library(phyloseq)
# library(microbiome)
# data("zackular2014")
# sub.sm <- sample(sample_names(zackular2014), 20)
# pseq <- prune_samples(sub.sm,zackular2014)
# taxa_pooler_mcola(pseq)