Broadband Access in Boston, MA

February 5, 2020

Inspired by a conversation at a coffee shop conversation, I wanted to quickly explore broadband access in the Boston (Suffolk 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)
ma_internet = get_acs(variables = "DP02_0152P", geography = "tract", year = 2017, 
                      state = "MA", county = c("Suffolk County", "Middlesex County", "Norfolk County"),
                      geometry = TRUE)
pal <- colorNumeric(palette = "GnBu", domain = ma_internet$estimate)

ma_internet %>% st_transform(crs = "+init=epsg:4326") %>%
  leaflet() %>% addFullscreenControl("bottomleft", pseudoFullscreen = TRUE) %>%
  addProviderTiles(providers$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)