Kyle Walker walkerke
walkerke
/ mapchallenge_day9_space.R
Created
November 10, 2022 14:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyterra) | |
| library(tidyverse) | |
| library(terra) | |
| library(tigris) | |
| library(sf) | |
| library(mapboxapi) | |
| # Get data from https://www.mrlc.gov/data/nlcd-2019-land-cover-conus | |
| # Warning - it's big! | |
| nlcd <- rast("~/data/nlcd_2019_land_cover_l48_20210604/nlcd_2019_land_cover_l48_20210604.img") |
walkerke
/ mapchallenge_day8_osm.R
Created
November 8, 2022 19:57
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(mapboxapi) | |
| library(tidyverse) | |
| library(sf) | |
| library(patchwork) | |
| city_halls <- c( | |
| "New York" = "City Hall Park, New York, NY 10007", | |
| "Los Angeles" = "200 N Spring St, Los Angeles, CA 90012", | |
| "Chicago" = "121 N La Salle St, Chicago, IL 60602", | |
| "Houston" = "901 Bagby St, Houston, TX 77002", |
walkerke
/ mapchallenge_day7_raster.R
Created
November 7, 2022 14:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(sf) | |
| library(mapboxapi) | |
| library(tigris) | |
| library(fasterize) | |
| library(leaflet) | |
| # Get county boundaries; you can analyze for any county | |
| target_GEOID <- "48309" |
walkerke
/ mapchallenge_day5_ukraine.R
Created
November 4, 2022 15:45
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidycensus) | |
| library(tigris) | |
| library(tidyverse) | |
| library(showtext) | |
| options(tigris_use_cache = TRUE) | |
| font_add_google("Roboto", "Roboto") | |
| showtext_auto() | |
| ukrainian <- get_acs( |
walkerke
/ mapchallenge_day4_green.R
Created
November 4, 2022 13:45
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tigris) | |
| library(tidyverse) | |
| library(showtext) | |
| library(sf) | |
| library(ggfx) | |
| options(tigris_use_cache = TRUE) | |
| font_add_google("Roboto", "Roboto") | |
| showtext_auto() |
walkerke
/ mapchallenge_day3_polygons.R
Created
November 3, 2022 15:52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tigris) | |
| library(tidycensus) | |
| library(tidyverse) | |
| library(gganimate) | |
| library(scales) | |
| options(tigris_use_cache = TRUE) | |
| us_county_pop <- get_decennial( | |
| geography = "county", | |
| variables = "P1_001N", |
walkerke
/ mapchallenge_day2_lines.R
Created
November 2, 2022 15:42
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tigris) | |
| library(mapboxapi) | |
| library(gganimate) | |
| library(tidyverse) | |
| library(sf) | |
| library(showtext) | |
| options(tigris_use_cache = TRUE) | |
| animation::ani.options(ani.width = 700, ani.height = 550) |
walkerke
/ mapchallenge_day1_points.R
Created
November 1, 2022 16:34
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tigris) | |
| library(tidyverse) | |
| library(showtext) | |
| library(sf) | |
| options(tigris_use_cache = TRUE) | |
| font_add_google("Roboto", "Roboto") | |
| showtext_auto() | |
| state_borders <- states(cb = TRUE, resolution = "20m") %>% |
walkerke
/ diverging_lollipop.R
Created
September 21, 2022 15:10
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| cities <- structure( | |
| list( | |
| name = c( | |
| "Mesa", | |
| "Phoenix", | |
| "Tucson", | |
| "Fresno", | |
| "Los Angeles", | |
| "Sacramento", | |
| "San Diego", |
walkerke
/ commute_decline.R
Created
September 17, 2022 21:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidycensus) | |
| library(tidyverse) | |
| sysfonts::font_add_google("Roboto") | |
| var <- "DP03_0025" | |
| commute19 <- get_acs( | |
| geography = "place", | |
| variables = var, | |
| survey = "acs1", |