Broadband Access in Los Angeles County

Data Source: American Commutnity Survey 5-year (2013-2017)

Packages: tidyvere, tidycensus, lealfet, leaflet.extras, sf

library(tidyverse)
library(tidycensus)
library(leaflet)
library(leaflet.extras)
library(sf)

la_internet = get_acs(variables = "DP02_0152P", geography = "tract", year = 2017, 
                      state = "CA", county = "Los Angeles", geometry = TRUE)

pal <- colorNumeric(palette = "GnBu", domain = la_internet$estimate)

la_internet %>% st_transform(crs = "+init=epsg:4326") %>%
  leaflet() %>% addFullscreenControl("bottomleft", pseudoFullscreen = TRUE) %>%
  addProviderTiles(provider = "CartoDB.Positron") %>%
  addPolygons(popup = ~ str_extract(estimate, "^([^,]*)"),
              stroke = FALSE,smoothFactor = 0,
              fillOpacity = 0.7,
              color = ~ pal(estimate)) %>%
  addLegend("bottomright",
            pal = pal,
            values = ~ estimate,
            title = "% Household with Broadband Access",
            opacity = 1)