library(AirMonitor)
# Find lowest elevation sites
Camp_Fire %>%
monitor_filter(!is.na(elevation)) %>%
monitor_arrange(elevation) %>%
monitor_slice_head(n = 5) %>%
monitor_getMeta() %>%
dplyr::select(elevation, locationName)
# Find highest elevation sites
Camp_Fire %>%
monitor_filterMeta(!is.na(elevation)) %>%
monitor_arrange(elevation) %>%
monitor_slice_tail(n = 5) %>%
monitor_getMeta() %>%
dplyr::select(elevation, locationName)
Run the code above in your browser using DataLab