All years of detections at the BBS routes around HEE sites.

can click on table

datatable(select(HEE_bbs, 'RID', 'Year', 'SpeciesTotal'))
HEE_bbs <- st_as_sf(HEE_bbs,  crs=4326)

HEE_bbs$RID <- as.character(HEE_bbs$RID)

bbs_sum <- HEE_bbs %>%
  group_by(RID, geometry) %>%
  summarise(yrsdet = n(), totalDets = sum(SpeciesTotal)) %>%
  st_as_sf(crs=4326)
## `summarise()` has grouped output by 'RID'. You can override using the `.groups`
## argument.

MAP of BBS routes with detections near HEE sites

You can click on the blue BBS points to see a summary of years detected and number of detections since 2012.

knitr::kable(as.data.frame(bbs_sum))
RID geometry yrsdet totalDets
84035023 POINT (-86.34298 39.07914) 5 24
84035026 POINT (-86.70313 39.26388) 1 1
84035037 POINT (-86.19299 38.91905) 4 5
84035900 POINT (-86.40119 39.0148) 8 30 
mapview(HEE_sites, col.regions = 'red') +mapview(bbs_sum) +mapview(IN_routes)