#install.packages("tidyverse")
#install.packages("tidycensus")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.3     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(tidycensus)
census_api_key("f47d2ea953fa8297dad3dc44e5ac87f39e113b79")
## To install your API key for use in future sessions, run this function with `install = TRUE`.
DetailedTables <- load_variables(2022, "acs5", cache = TRUE)
SubjectTables <- load_variables(2022, "acs5/subject", cache = TRUE)
ProfileTables <- load_variables(2022, "acs5/profile", cache = TRUE)
mydata <- get_acs(
  geography = "county subdivision",
  state = "TN",
  variables = c(MyVar_ = "DP04_0142P"),
  year = 2022,
  survey = "acs5",
  output = "wide")
## Getting data from the 2018-2022 5-year ACS
## Using the ACS Data Profile
mydata <-
  separate_wider_delim(mydata,
                       NAME,
                       delim = ", ",
                       names = c("District", "County", "State"))

mydata <- filter(
  mydata,
  County == "Davidson County" |
    County == "Cheatham County" |
    County == "Robertson County" |
    County == "Rutherford County" |
    County == "Sumner County" |
    County == "Williamson County" |
    County == "Wilson County")


write.csv(mydata, "mydata.csv", row.names = FALSE)

mydata <- filter(mydata, County == "Rutherford County")


mydata <- arrange(mydata,County, desc(MyVar_E))

GEOID

<chr>

District

<chr>

County

<chr>

State

<chr>

MyVar_E

<dbl>

MyVar_M

<dbl>
4714990530 District 3 Rutherford County Tennessee 54.0 15.2
4714993190 District 17 Rutherford County Tennessee 49.2 8.0
4714993570 District 19 Rutherford County Tennessee 48.3 15.9
4714993760 District 20 Rutherford County Tennessee 48.3 13.4
4714990720 District 4 Rutherford County Tennessee 47.3 15.2
4714991670 District 9 Rutherford County Tennessee 46.9 25.0
4714991290 District 7 Rutherford County Tennessee 45.9 10.7
4714990910 District 5 Rutherford County Tennessee 41.5 10.5
4714991860 District 10 Rutherford County Tennessee 40.9 16.9
4714991480 District 8 Rutherford County Tennessee 36.6 18.5