mapdeck_housing.R

library(tidycensus)
library(mapdeck)
library(tidyverse)

token <- "your mapbox token"

hv <- get_acs(geography = "tract", 
              variables = "B25077_001", 
              state = "CA", 
              geometry = TRUE) %>%
  drop_na(estimate) %>%
  mutate(elev = estimate/ 100)

mapdeck(token = token) %>%
  add_polygon(data = hv, 
              fill_colour = "estimate", 
              tooltip = "estimate", 
              stroke_width = 0, 
              layer = "ca_housing", 
              elevation = "elev")