#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("5ca5dfb26ceb4e555bb4b31e06653b1deb40ac7b")
## 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)
census_api_key("3e23979bc0d73789f5d4f518d6bed3cdb59c801c")
## To install your API key for use in future sessions, run this function with `install = 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)
head(mydata, 10)
## # A tibble: 10 × 6
## GEOID District County State MyVar_E MyVar_M
## <chr> <chr> <chr> <chr> <dbl> <dbl>
## 1 4702190022 District 1 Cheatham County Tennessee 31.4 12.3
## 2 4702190212 District 2 Cheatham County Tennessee 34.7 23
## 3 4702190402 District 3 Cheatham County Tennessee 27.9 18
## 4 4702190592 District 4 Cheatham County Tennessee 22.6 17.5
## 5 4702190782 District 5 Cheatham County Tennessee 36.9 17.9
## 6 4702190972 District 6 Cheatham County Tennessee 8.1 10.4
## 7 4703790038 District 1 Davidson County Tennessee 39.7 16.9
## 8 4703790228 District 2 Davidson County Tennessee 39.3 8.4
## 9 4703790418 District 3 Davidson County Tennessee 52.6 13.3
## 10 4703790608 District 4 Davidson County Tennessee 25.6 7.9
mydata_filtered <- filter(mydata, County == "Rutherford County")
head(mydata_filtered,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_sorted <- arrange(mydata, desc(MyVar_E))
head(mydata_sorted,10)
## # A tibble: 10 × 6
## GEOID District County State MyVar_E MyVar_M
## <chr> <chr> <chr> <chr> <dbl> <dbl>
## 1 4718993420 District 18 Wilson County Tennessee 81 23.3
## 2 4718991520 District 8 Wilson County Tennessee 71.7 27.2
## 3 4718992470 District 13 Wilson County Tennessee 61.5 36
## 4 4714790718 District 4 Robertson County Tennessee 60.8 20.1
## 5 4714791288 District 7 Robertson County Tennessee 60.4 30.5
## 6 4716591686 District 9 Sumner County Tennessee 58.8 16.1
## 7 4718993230 District 17 Wilson County Tennessee 56.1 13.3
## 8 4716590546 District 3 Sumner County Tennessee 55.9 14.8
## 9 4718991710 District 9 Wilson County Tennessee 55 27.9
## 10 4714990530 District 3 Rutherford County Tennessee 54 15.2