Parking Survey Map

---

Forms Link

data_park_grouped <- data_park %>%
  group_by(park_lot) %>%
  summarise(park_lot = first(park_lot),
            n = n(),
            arrival = mean.POSIXlt(posix_arrival),
            mood = mean(mood),
            candy_corn = mean(candy_corn),
            lat = first(lat),
            long = first(long),
            ssc_lat = first(ssc_lat),
            ssc_long = first(ssc_long))

park_points <- data_park_grouped %>%
  st_as_sf(coords = c("long", "lat"), crs = 4326)
  
ssc_points <- data_park_grouped %>%
  st_as_sf(coords = c("ssc_long", "ssc_lat"), crs = 4326)

ssc_point <- data_park_grouped %>%
  slice(1) %>%
  mutate(location = "SSC") %>% 
  select(location, ssc_long, ssc_lat) %>%
  st_as_sf(coords = c("ssc_long", "ssc_lat"), crs = 4326)

park_points$distance <- (st_distance(park_points, ssc_points, by_element = TRUE))

park_points$distance <- as.numeric(park_points$distance)

palette1 <- colorNumeric(palette = "viridis", domain = park_points$distance)
palette2 <- colorNumeric(palette = "PRGn", domain = park_points$distance)
palette3 <- colorNumeric(palette = colorRamp(c("orange", "purple")), domain = park_points$distance)

#Build leaflet map
leaflet() %>%
  addTiles(group = "OpenStreetMap") %>%
  addProviderTiles(providers$Esri.WorldStreetMap, group = "Esri Street Map") %>%
  addProviderTiles(providers$OpenStreetMap, group = "Open Street Map") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Satellite") %>%

    addCircleMarkers(data = park_points,
                   radius = park_points$n*3,
                   color = ~palette3(distance),
                   label = ~paste("Parking Lot", park_lot, arrival),
                   group = "parking lots") %>%
  
  addCircleMarkers(data = ssc_point,
                   radius = 5,
                   color = "blue",
                   label = ~paste(location),
                   group = "SSC") %>%
  
  addLayersControl(
    baseGroups = c( "Satellite", "Esri Street Map", "OpenStreetMap"),
    overlayGroups = c("parking lots"),
    options = layersControlOptions(collapsed = FALSE)) %>%
  addScaleBar()

ggplot(data = data_park, aes(x = candy_corn, y = mood)) +
       geom_point() +
  geom_smooth(method = "lm", se = FALSE, color = "blue")