if (FALSE) {
# Read a dataset of interest
dataset <- read_data("edi.193.5")
# Plot the dataset
plot_taxa_accum_time(dataset)
# Flatten the dataset, manipulate, then plot
dataset %>%
flatten_data() %>%
dplyr::filter(lubridate::as_date(datetime) > "2003-07-01") %>%
plot_taxa_accum_time()
# Plot from the observation table directly
plot_taxa_accum_time(dataset$tables$observation)
}
# Plot the example dataset
plot_taxa_accum_time(ants_L1)
Run the code above in your browser using DataLab