This is the code for Rutherford County Subdivisions

#install.packages("tidyverse")
#install.packages("tidycensus")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ 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("df0faecd0926862cb1236c2095af91dbdec0b3da")
## 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 == "Rutherford County")
   

head(mydata, 10) 
## # A tibble: 10 × 6
##    GEOID      District    County            State     MyVar_E MyVar_M
##    <chr>      <chr>       <chr>             <chr>       <dbl>   <dbl>
##  1 4714990150 District 1  Rutherford County Tennessee    35.6    13.6
##  2 4714990340 District 2  Rutherford County Tennessee    28.8    27.9
##  3 4714990530 District 3  Rutherford County Tennessee    54      15.2
##  4 4714990720 District 4  Rutherford County Tennessee    47.3    15.2
##  5 4714990910 District 5  Rutherford County Tennessee    41.5    10.5
##  6 4714991100 District 6  Rutherford County Tennessee    21.8    14.7
##  7 4714991290 District 7  Rutherford County Tennessee    45.9    10.7
##  8 4714991480 District 8  Rutherford County Tennessee    36.6    18.5
##  9 4714991670 District 9  Rutherford County Tennessee    46.9    25  
## 10 4714991860 District 10 Rutherford County Tennessee    40.9    16.9
mydata <- arrange(mydata,desc(MyVar_E))