2023-10_vehicle-access-by-baltimore-city-council-district.R

library(getACS)
library(tidyverse)

vehicle_access_acs <- get_acs_tables(
  "tract",
  table = "B08201",
  county = "Baltimore city",
  state = "MD"
)

vehicle_access_district <- vehicle_access_acs |> 
  use_area_xwalk(
    area_xwalk = filter(
      baltimore_census_xwalk,
      geography == "council district"
    ),
    name_col = "name",
    geography = "council district"
  )

districts <- unique(vehicle_access_district$name)

vehicle_access_tbl_list <- map(
  districts,
  \(x) {
    vehicle_access_district |> 
      filter(name == x) |> 
      filter_acs(indent == 1, line_number < 6) |> 
      select_acs() |> 
      gt_acs(
        table = vehicle_access_district$table_id,
        value_label = "Households",
        column_title_label = "Access"
        ) |> 
      gt::tab_header(title = glue("How many households in City Council {x} have access to a vehicle?"))
    }
)

tbl_docx <- officerExtras::read_docx_ext(allow_null = TRUE)

tbl_docx <- officerExtras::vec_add_to_body(
  tbl_docx,
  gt_object = vehicle_access_tbl_list,
  .sep = officer::body_add_break
)

tbl_docx |> 
  officerExtras::write_officer("city_council_vehicle_access.docx")