Homework #2 - DPLYR

Ernesto Gomez, September 11, 2017

Tidyverse, Reading Data, Applying Dplyr Magics, & Plotting

library(tidyverse)
NYChealth2 <- read_csv("/Users/ernesto/Documents/Advanced Analytics/Data/NYChealthdrug1.csv")%>%
rename(
                    "County" = Geo_NAME,
                    "poorhealth" = SE_T002_001,
                    "smokers" = SE_T011_001,
                    "drinkers" = SE_T011_002,
                    "teenbirth" = SE_NV008_001,
                    "HIV" = SE_NV008_003,
                    "chlamydia" = SE_NV008_002)%>%
select(County, poorhealth, smokers, drinkers, HIV, teenbirth, chlamydia)%>%
mutate(HIVchl=HIV+chlamydia)
head(NYChealth2)

Reported Poor Health and Smoking

ggplot(data = NYChealth2) + 
  geom_point(mapping = aes(x = poorhealth , y = smokers))

Variable Key:

T002_001: Adults that Report Fair or Poor Health

T011_001: Current Smokers (18 or Over)

T011_002: Current Drinkers (18 or Over)

NV008_001: Teen Birth Rates Per 100k

NV008_002: Chlamydia Rates Per 100k

NV008_003: HIV Rates Per 100k