Mapping BBS CERW

Loading Data

cerw <- read.csv(here("CERW_routes.csv"))
cer <- st_as_sf(cerw, coords= c("Longitude", "Latitude"), crs=4326)

Maps

All routes with cerulean detections

All routes with ceruleans since 2005

Routes with more than 10 individuals (since 2005)

Examinging high counts (are they repeatedly high in the same routes?)

These are only on routes with 10 or more individuals detected in a year.

grouped <- high_counts %>%
  group_by(StateNum, Route) %>%
  summarize(RouteCount = n(), MaxCount= max(SpeciesTotal), MeanCount=mean(SpeciesTotal), .groups = 'drop')%>%
  arrange(RouteCount)%>%
  as.data.frame()
datatable(grouped[,1:5])

Taking a look at all of the routes with warblers. Regular detections at the same routes?

g <- recent %>%
  group_by(StateNum, Route) %>%
  summarize(RouteCount = n(), MaxSpecies= max(SpeciesTotal), .groups = 'drop')%>%
  arrange()

Routes with CERW detections, color correspondes to how many years it has been detected on that Route

mapview(g, zcol='RouteCount')

How many routes have multiple years of detections?

g$RepYearlyDets <- cut(g$RouteCount, seq(0, 20, 5))
mult <- g %>%
  group_by(RepYearlyDets) %>%
  summarize(Count= n())
datatable(mult)