if (FALSE) {
# Read a dataset of interest
dataset <- read_data(
id = "neon.ecocomdp.20120.001.001",
site= c('COMO','LECO'),
startdate = "2017-06",
enddate = "2019-09",
check.size = FALSE)
# Plot the dataset
plot_taxa_rank(dataset)
# Plot with facet by location
plot_taxa_rank(dataset, facet_var = "location_id")
# Flatten the dataset, manipulate, then plot
dataset %>%
flatten_data() %>%
dplyr::filter(lubridate::as_date(datetime) > "2003-07-01") %>%
dplyr::filter(grepl("COMO",location_id)) %>%
plot_taxa_rank()
}
# Plot the example dataset
plot_taxa_rank(ants_L1)
Run the code above in your browser using DataLab