Skip to content

Instantly share code, notes, and snippets.

View walkerke's full-sized avatar

Kyle Walker walkerke

View GitHub Profile
library(tidycensus)
library(tidyverse)
library(ggridges)
library(showtext)
font_add_google("Montserrat")
showtext_auto()
all_tract_incomes <- get_acs(
geography = "tract",
library(tidycensus)
library(tidyverse)
library(ggridges)
library(showtext)
font_add_google("Montserrat")
showtext_auto()
all_tract_incomes <- get_acs(
geography = "tract",
library(tigris)
library(tidyverse)
library(sf)
options(tigris_use_cache = TRUE)
library(showtext)
showtext_auto()
font_add_google("Montserrat")
all_places <- places(cb = TRUE)
library(tidycensus)
library(tigris)
library(tidyverse)
library(sf)
options(tigris_use_cache = TRUE)
set.seed(123456)
austin_counties <- counties() %>%
filter(CBSAFP == "12420") %>%
pull(COUNTYFP)
# Install packages (if necessary)
# install.packages(c("tidycensus", "tidyverse", "tmap", "mapview"))
# Load libraries
library(tidycensus)
library(tidyverse)
# Get a Census API key at https://api.census.gov/data/key_signup.html.
# Activate the key from the link in your email.
# Now you can get started!
library(mapboxapi)
library(mapview)
mb_access_token("YOUR TOKEN GOES HERE")
isos <- mb_isochrone("2500 Victory Ave, Dallas TX",
time = c(5, 10, 15),
profile = "driving-traffic")
mapview(isos, zcol = "time",
library(tidycensus)
library(tidyverse)
library(tigris)
options(tigris_use_cache = TRUE)
migrants <- get_pums(
variables = c("MIGSP", "PUMA"),
state = "all",
year = 2021,
survey = "acs1",
library(sf)
library(tigris)
library(tidycensus)
library(tidyverse)
library(mapview)
library(mapboxapi)
library(randomNames)
options(tigris_use_cache = TRUE)
denton <- counties(cb = TRUE) %>%
library(tidycensus)
library(tigris)
library(tidyverse)
library(sf)
library(srvyr)
options(tigris_use_cache = TRUE)
sf_area <- metro_divisions() %>%
filter(GEOID %in% c("4186042034", "4186041884"))
# remotes::install_github("walkerke/tidycensus")
library(tidycensus)
library(tidyverse)
library(showtext)
font_add_google("Roboto")
showtext_auto()
county_all <- get_estimates(
geography = "county",