Where Gov. Kristi Noem can go in South Dakota

As of May 23, 2024, South Dakota Governor Kristi Noem is banned on all 9 Native American Reservations. This map of the state shows where Gov. Noem is allowed to go, although the technicalities of enforcement are complex.

Code for reproducing this chart in R is provided below.

Code

ggplot() +
  geom_sf(data = sd_border, fill = "#F1E3D3", color = "#251605", linewidth = .15) +
  geom_sf(data = tribal_geoms, fill = asteroid_red, color = "#251605", linewidth = .15) +
  geom_sf(data = missouri, fill = "#2274A5", color = "#251605", linewidth = 0) +
  geom_sf(data = sd_border, fill = NA, color = "#251605", linewidth = .5) +
  geom_sf(data = sd_interstate, linewidth = .25, color = "black") +
  scale_fill_manual(values = c(
                              "#F1E3D3", 
                               asteroid_red

)) +
  labs(
    title = "Where can Gov. Kristi Noem go in her state?",
    subtitle = "Tribal banishments as of May 23, 2024",
    fill = "",
    caption = "Data: KELO News / Map: @slaaterdixon"
  ) +
  theme_ipsum(
              plot_title_margin = 5, 
              subtitle_margin = 0,
              subtitle_size = 16,
              grid = FALSE, 
              strip_text_size = 0, 
              plot_margin = margin(10, 10, 10, 10)) +
  theme(plot.title = element_text(hjust = .5),
        plot.subtitle = element_text(hjust = .5),
        legend.position.inside = c(.5, .05),
        legend.direction = "horizontal",
        legend.text = element_text(size = 14),
        axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank(),
        aspect.ratio = 9 / 16
                )

--- title: "Where Gov. Kristi Noem can go in South Dakota" subtitle: "A map of Noem's tribal banishments" author: "Slater Dixon" editor: visual date: 05-23-24 categories: "Data Viz" format: html: code-fold: true code-tools: true --- As of May 23, 2024, South Dakota Governor Kristi Noem is [banned](https://www.argusleader.com/story/news/politics/2024/05/21/south-dakota-governor-kristi-noem-banished-flandreau-santee-sioux-all-9-tribes-endorse-banishment/73785610007/&gps-source=CPROADBLOCKDH&sltsgmt=0051v2_A) on all 9 Native American Reservations. This map of the state shows where Gov. Noem is allowed to go, although the technicalities of enforcement are complex. Code for reproducing this chart in R is provided below. ```{r, include = FALSE} #| include: false library(tidyverse, warn.conflicts, quietly = TRUE) library(sf, warn.conflicts, quietly = TRUE) library(janitor, warn.conflicts, quietly = TRUE) library(wesanderson, warn.conflicts, quietly = TRUE) library(hrbrthemes, warn.conflicts, quietly = TRUE) ``` ```{r, include = FALSE} #| include: false # South Dakota Waterbodies from the State of South Dakota # https://opendata2017-09-18t192802468z-sdbit.opendata.arcgis.com/datasets/90c8afaff836405e98e84c1a15ad4dbe_0/about missouri <- read_sf("Statewide_Waterbodies") |> arrange(desc(Acres)) |> head(10) |> summarise(st_union(geometry)) |> st_sf() |> st_simplify(preserveTopology = FALSE, dTolerance = 10) # Tribal geometries from US Census cropped to SD # https://www2.census.gov/geo/tiger/TIGER2012/STATE/ sd_border <- read_sf("./tl_2012_us_state") |> st_transform(6574) |> filter(STUSPS == "SD") sd_bbox <- st_bbox(sd_border) sd_bbox[4] <- sd_bbox[4] * 1.11 # Interstate shapes from ArcGIS hub # https://hub.arcgis.com/maps/91c6a5f6410b4991ab0db1d7c26daacb/about sd_interstate <- read_sf("./USA_Freeway_System") |> st_transform(6574) |> st_crop(sd_border) banned_reservations <- c( "Pine Ridge", "Cheyenne River", "Standing Rock", "Lake Traverse", "Yankton", "Rosebud", "Crow", "Flandreau" ) |> paste0(collapse = "|") tribal_geoms <- read_sf("./tl_2023_us_aiannh") |> st_transform(6574) |> st_crop(sd_bbox) |> clean_names() |> filter(!grepl("(NE)", namelsad)) |> mutate(banned = if_else(grepl(banned_reservations, name), "Banned", "Allowed")) asteroid_red <- wes_palette("AsteroidCity1")[3] ``` ```{r} ggplot() + geom_sf(data = sd_border, fill = "#F1E3D3", color = "#251605", linewidth = .15) + geom_sf(data = tribal_geoms, fill = asteroid_red, color = "#251605", linewidth = .15) + geom_sf(data = missouri, fill = "#2274A5", color = "#251605", linewidth = 0) + geom_sf(data = sd_border, fill = NA, color = "#251605", linewidth = .5) + geom_sf(data = sd_interstate, linewidth = .25, color = "black") + scale_fill_manual(values = c( "#F1E3D3", asteroid_red )) + labs( title = "Where can Gov. Kristi Noem go in her state?", subtitle = "Tribal banishments as of May 23, 2024", fill = "", caption = "Data: KELO News / Map: @slaaterdixon" ) + theme_ipsum( plot_title_margin = 5, subtitle_margin = 0, subtitle_size = 16, grid = FALSE, strip_text_size = 0, plot_margin = margin(10, 10, 10, 10)) + theme(plot.title = element_text(hjust = .5), plot.subtitle = element_text(hjust = .5), legend.position.inside = c(.5, .05), legend.direction = "horizontal", legend.text = element_text(size = 14), axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank(), axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank(), aspect.ratio = 9 / 16 ) ```