if (FALSE) {
data("Two_group")
Two_group_microeco=Trans_to_microeco(Two_group)
t1 <- trans_abund$new(dataset = Two_group_microeco, taxrank = "Phylum", ntaxa = 10)
t1$plot_bar(others_color = "grey70",
legend_text_italic = FALSE) +
theme(axis.title.y = element_text(size = 18)) #Just to show it can be used for analysis
}
Run the code above in your browser using DataLab