Plot bar plots of sample and group level relative abundance

relabu_barplot(
  MAE,
  tax_level,
  order_organisms = c(),
  sort_by = c("nosort", "conditions", "organisms", "alphabetically"),
  group_samples = FALSE,
  group_conditions = "ALL",
  sample_conditions = c(),
  isolate_samples = c(),
  discard_samples = c(),
  show_legend = TRUE
)

Arguments

MAE: A multi-assay experiment object
tax_level: The taxon level used for organisms
order_organisms: A character list of organisms to send to top
sort_by: Sort bars by one of c("nosort", "conditions", "organisms", "alphabetically")
group_samples: A bool specifying whether to group samples
group_conditions: Group by one or more conditions e.g. "ALL" or "SEX"
sample_conditions: Plot associatied conditions with samples.
isolate_samples: Isolate specific samples e.g. c("SAM_01", "SAM_02")
discard_samples: Discard specific samples e.g. c("SAM_01", "SAM_02")
show_legend: A bool specifying whether or not to show organisms legend

Value

A plotly object

Examples

data_dir <- system.file("extdata/MAE.rds", package = "animalcules")
toy_data <- readRDS(data_dir)
p <- relabu_barplot(toy_data,
  tax_level = "family",
  order_organisms = c("Retroviridae"),
  sort_by = "organisms",
  sample_conditions = c("SEX", "AGE"),
  show_legend = TRUE
)
p