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