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