View source: R/beta_div_test.R
ancombc_pq | R Documentation |
A wrapper for the ANCOMBC::ancombc2()
function
ancombc_pq(physeq, fact, levels_fact = NULL, tax_level = "Class", ...)
physeq |
(required): a |
fact |
(required) Name of the factor in |
levels_fact |
(default NULL) The order of the level in the factor. Used for reorder levels and select levels (filter out levels not present en levels_fact) |
tax_level |
The taxonomic level passed on to |
... |
Other arguments passed on to |
This function is mainly a wrapper of the work of others.
Please make a reference to ANCOMBC::ancombc2()
if you
use this function.
The result of ANCOMBC::ancombc2()
function
Adrien Taudière
if (requireNamespace("mia")) {
data_fungi_mini@tax_table <- phyloseq::tax_table(cbind(
data_fungi_mini@tax_table,
"taxon" = taxa_names(data_fungi_mini)
))
res_height <- ancombc_pq(
data_fungi_mini,
fact = "Height",
levels_fact = c("Low", "High"),
verbose = TRUE
)
ggplot(
res_height$res,
aes(
y = reorder(taxon, lfc_HeightHigh),
x = lfc_HeightHigh,
color = diff_HeightHigh
)
) +
geom_vline(xintercept = 0) +
geom_segment(aes(
xend = 0, y = reorder(taxon, lfc_HeightHigh),
yend = reorder(taxon, lfc_HeightHigh)
), color = "darkgrey") +
geom_point()
res_time <- ancombc_pq(
data_fungi_mini,
fact = "Time",
levels_fact = c("0", "15"),
tax_level = "Family",
verbose = TRUE
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.