R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

plot(cars)

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed. ############################# Chris Prenner Tidycensu video

library(tidycensus)
library(tidyverse)

census_api_key("6eff16100e6184b9bf0604e510aeba4d429a7dec",install = TRUE,overwrite = TRUE)

Your original .Renviron will be backed up and stored in your R HOME directory if needed.
Your API key has been stored in your .Renviron and can be accessed by Sys.getenv("CENSUS_API_KEY"). 
To use now, restart R or run `readRenviron("~/.Renviron")`

[1] "6eff16100e6184b9bf0604e510aeba4d429a7dec"

Census Data

thousands of variables. to find one use load variables function load_variables( year ,“product”, cache= TRUE)

census_variables_variables<- load_variables(2010, "sf1", cache = TRUE)

get_decinial(geography = " geo“, year =”year“, state=”state“, county=”county, variable= “variable”)

geo is state, county tract, blockbroup

Population variable for all states: P0010001

NOTE REDUCE A ZERO FROM CHRIS VARIABLES ###################$%^&*()

statPop<- get_decennial (geography= "state", year=2010, variable= "P001001")

County Level population

popCounty_NY<- get_decennial(geography = "county", year = 2010, state = "NY",
                             variables = "P001001")

POPULATIONS FOR TRACT ,BLOCK, BLOCK GROUP

Nassau_tract_Pop<- get_decennial(geography = "tract", year = 2010, state = "NY",
                                 county = "Nassau",variables = "P001001")

GROUP BLOCK DOES NOT RUN

Nassau_BlockGroup_Pop<- get_decennial(geography = "block group", year = 2010, state = "MO",
                                 county = "St. Louis city",variables = "P001001")

Getting data from the 2010 decennial Census
Using FIPS code '29' for state 'MO'
Using FIPS code '510' for 'St. Louis city'
Error : One or more of your requested variables is likely not available at the requested geography.  Please refine your selection.
Error in gather_(data, key_col = compat_as_lazy(enquo(key)), value_col = compat_as_lazy(enquo(value)),  : 
  unused argument (-NAME)

NassauBlock_Pop<- get_decennial(geography = "block", year = 2010, state = "NY",
                                county = "Nassau", variables = "P001001")

Getting data from the 2010 decennial Census
Using FIPS code '36' for state 'NY'
Using FIPS code '059' for 'Nassau County'

EACH RACE IS A VARIABLE. BUT WITH TABLE WE CAN DOWNLOAD THE SET OF VARIABLES INSTEAD OF VARIABLE ARGUMENT WE USE TABLE ARGUMENT AND WIDE

Below did not work

census_variables_variables %>%
  filter(concept == "P3. ")

The result should be: NAME label concept P003001 total pop P3 RACE P003002 white alone P3 POO3 black

So the table name is what they have in common: P003

This is SKINNY , long data

Nassau_Race_tract_Skinny<- get_decennial(geography = "tract",year = 2010,
                                  state = "NY", county = "Nassau",
                                  table = "P003",output = "tidy")

Getting data from the 2010 decennial Census
Using FIPS code '36' for state 'NY'
Using FIPS code '059' for 'Nassau County'

Nassau_Race_tract_wide<- get_decennial(geography = "tract",year = 2010,
                                  state = "NY", county = "Nassau",
                                  table = "P003",output = "wide")

Getting data from the 2010 decennial Census
Using FIPS code '36' for state 'NY'
Using FIPS code '059' for 'Nassau County'

########### AMERICAN COMMUNITY SURVEY DATA ######################3 dIFFERENT SET OF VARIABLES

ACS_Variables<- load_variables(2016,"ACS5", cache = TRUE)

get_acs)geography =“geo”, hear = “year”, state=“state”,county=“county”, variable= “variable”, survey=“ACS5”

GEt # of house holds per county and a marginof error.

householdsNY_Counties<- get_acs(geography = "county", year= 2016, state = "NY",
                                variables = "B11001_001",survey = "acs5")

Getting data from the 2012-2016 5-year ACS
Using FIPS code '36' for state 'NY'

householdsNY_Counties_tract<- get_acs(geography = "tract", year= 2016, state = "NY",
                                variables = "B11001_001",survey = "acs5")

Getting data from the 2012-2016 5-year ACS
Using FIPS code '36' for state 'NY'

get_acs( geography = “geo”, year = “year”, state=“st”, county=“county”, output= “wide”, survey = “acs5”)

Nassau_ACS_Table<- get_acs(geography = "tract", year = 2016, state = "NY",
                           county = "Nassau", table = "B11001", output = "wide",
                           survey = "acs5")

Getting data from the 2012-2016 5-year ACS
Using FIPS code '36' for state 'NY'
Using FIPS code '059' for 'Nassau County'

                           )

Error: unexpected ')' in "                           )"

Nassau_Latino_Tract<- get_acs(geography = "tract", year = 2016, state = "NY",
                           county = "Nassau", table = "B03003", output = "wide",
                           survey = "acs5")

Getting data from the 2012-2016 5-year ACS
Using FIPS code '36' for state 'NY'
Using FIPS code '059' for 'Nassau County'

Nassau_Latino_ZCTA<- get_acs(geography = "zcta", year = 2016,
                           table = "B03003", output = "wide",
                           survey = "acs5")

Getting data from the 2012-2016 5-year ACS

dim(Nassau_Latino_ZCTA)

[1] 33120     8