Skip to content

Instantly share code, notes, and snippets.

View walkerke's full-sized avatar

Kyle Walker walkerke

View GitHub Profile
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",
# Install packages (if necessary)
# install.packages(c("tidycensus", "tidyverse", "tmap", "mapview"))
# Load libraries
library(tidycensus)
library(tidyverse)
# Optional: if you plan to be a power user (500+ queries / day)
# Get a Census API key at https://api.census.gov/data/key_signup.html.
# Activate the key from the link in your email.
# remotes::install_github("walkerke/tidycensus")
library(tidycensus)
library(tidyverse)
library(tigris)
options(tigris_use_cache = TRUE)
sysfonts::font_add_google("Roboto")
showtext::showtext_auto()
death_rates <- get_estimates(geography = "county",
remotes::install_github("walkerke/tidycensus")
library(tidycensus)
library(tidyverse)
library(tigris)
options(tigris_use_cache = TRUE)
sysfonts::font_add_google("Roboto")
showtext::showtext_auto()
library(tidycensus)
library(tidyverse)
options(tigris_use_cache = TRUE)
state_names <- c(state.name, "District of Columbia")
names(state_names) <- state_names
tictoc::tic()
age_maps <- map(state_names, ~{
library(tidycensus)
library(tigris)
library(tidyverse)
library(sf)
options(tigris_use_cache = TRUE)
sf_use_s2(FALSE)
top_places <- get_acs(
geography = "place",
variables = "B01001_001",