Lab2_assignment

Matt Harris 9/8/2021

library(tidyverse)
library(tidycensus)
library(sf)
library(tmap) # mapping, install if you don't have it
set.seed(717)

This assignment is for you to complete a short version of the lab notes, but you have to complete a number of the steps yourself. You will then knit this to a markdown (not an HTML) and push it to your GitHub repo. Unlike HTML, the RMarkdown knit to github_document can be viewed directly on GitHub. You will them email your lab instructor with a link to your repo.

Steps in this assignment:

Make sure you have successfully read, run, and learned from the MUSA_508_Lab2_sf.Rmd Rmarkdown

Find two new variables from the 2019 ACS data to load. Use vars <- load_variables(2019, "acs5") and View(vars) to see all of the variable from that ACS. Note that you should not pick something really obscure like count_38yo_cabinetmakers because you will get lots of NAs.

Pick a neighborhood of the City to map. You will need to do some googling to figure this out. Use the PHL Track Explorer to get the GEOID10 number from each parcel and add them to the myTracts object below. This is just like what was done in the exercise, but with a different neighborhood of your choice. Remember that all GEOIDs need to be 10-characters long.

In the first code chunk you will do that above and then edit the call-outs in the dplyr pipe sequence to rename and mutate your data.

You will transform the data to WGS84 by adding the correct EPSG code. This is discussed heavily in the exercise.

You will produce a map of one of the variables you picked and highlight the neighborhood you picked. There are call-out within the ggplot code for you to edit.

You can run the code chunks and lines of code as you edit to make sure everything works.

Once you are done, hit the knit button at the top of the script window (little blue knitting ball) and you will see the output. Once it is what you want…

Use the Git tab on the bottom left of right (depending on hour your Rstudio is laid out) and click the check box to stage all of your changes, write a commit note, hit the commit button, and then the Push button to push it to Github.

Check your Github repo to see you work in the cloud.

Email your lab instructor with a link!

Congrats! You made a map in code!

Load data from {tidycensus}

census_api_key("791448772c9a051612b70516247f56b54176cfbf", overwrite = TRUE)

vars <- load_variables(2019, "acs5")

view(vars)

#B08006_048 Estimate!!Total:!!Female:!!Bicycle SEX OF WORKERS BY MEANS OF TRANSPORTATION TO WORK
#B08006_009 Estimate!!Total:!!Public transportation (excluding taxicab):!!Bus SEX OF WORKERS BY MEANS OF TRANSPORTATION TO WORK
#B08006_014 Estimate!!Total:!!Bicycle SEX OF WORKERS BY MEANS OF TRANSPORTATION TO WORK
#B08006_043 Estimate!!Total:!!Female:!!Public transportation (excluding taxicab):!!Bus SEX OF WORKERS BY MEANS OF TRANSPORTATION TO Work



acs_vars_hw <- c( "B08006_048", "B08006_043", "B08006_009", "B08006_014") 

#Washington Square West
myTracts_hw <- c("42101000600", 
                 "42101000901",
                 "42101000902",
                 "42101001101",
                 "42101001102")

acsTractsPHL.2019.sf <- get_acs(geography = "tract",
                             year = 2019,
                             variables = acs_vars_hw,
                             geometry = TRUE,
                             state  = "PA",
                             county = "Philadelphia",
                             output = "wide") %>%
  dplyr::select (GEOID, NAME, all_of(paste0(acs_vars_hw,"E"))) %>%
  rename(womenbike = B08006_048E,
         totalbike = B08006_014E,
        womenbus = B08006_043E,
        totalbus = B08006_009E) %>%
  mutate(pct_womenbus = (womenbus/totalbus)*100 )%>%
  mutate(pct_womenbike = (womenbike/totalbike)*100)%>%

  mutate(Neighborhood = ifelse(GEOID %in% myTracts_hw,
                               "WashingtonSquare_West",
                               "REST OF PHILADELPHIA"))%>%

view(acsTractsPHL.2019.sf)

Lab2_assignment

Load data from {tidycensus}

Transform to WGS84 with {sf}

Plot with {ggplot2}