if (FALSE) {
# Read a dataset of interest
dataset <- read_data("edi.193.5")
# Plot the dataset
plot_taxa_occur_freq(dataset)
# Facet by location and color by taxon_rank
plot_taxa_occur_freq(
data = dataset,
facet_var = "location_id",
color_var = "taxon_rank")
# Color by location and only include taxa with >= 5 occurrences
plot_taxa_occur_freq(
data = dataset,
color_var = "location_id",
min_occurrence = 5)
# Flatten, filter using a time cutoff, then plot
dataset %>%
flatten_data() %>%
dplyr::filter(lubridate::as_date(datetime) > "2003-07-01") %>%
plot_taxa_occur_freq()
}
# Plot the example dataset
plot_taxa_occur_freq(ants_L1)
Run the code above in your browser using DataLab