Cancer Deaths in New York by Race

library(tidyverse)

Importing Cancer Data 2012

library(readr)
NYcancerdeaths <- read_csv("/Users/robertperez/Downloads/R11590564_SL050.csv", col_names = TRUE)

Parsed with column specification:
cols(
  .default = col_double(),
  Geo_FIPS = col_integer(),
  Geo_NAME = col_character(),
  Geo_QNAME = col_character(),
  Geo_NATION = col_character(),
  Geo_STATE = col_integer(),
  Geo_COUNTY = col_character()
)
See spec(...) for full column specifications.

print(NYcancerdeaths)

Creating New Data Set & Recoding

#T011_002:      White:
#T011_003:         White non-Hispanic
#T011_004:      Black or African American:
#T011_005:         Black or African American non-Hispanic
#T011_006:      Asian or Pacific Islander
#T011_007:      American Indian or Alaska Native
library(dplyr)
NYcancerdeaths2 <- rename(
  NYcancerdeaths,
  total100k = SE_T011_001,
  whites100k = SE_T011_002,
  white_nothisp.100k = SE_T011_003,
  blacks100k = SE_T011_004,
  black_nothisp.100k = SE_T011_005,
  asian_pacificislander100k = SE_T011_006,
  american_indian100k = SE_T011_007
  )

Dropping and Selecting Variables

NYcancerdeaths2 <- select(NYcancerdeaths2, total100k, whites100k, white_nothisp.100k, blacks100k, black_nothisp.100k, asian_pacificislander100k, american_indian100k)
print(NYcancerdeaths2)

Condensing Variables

NYcancerdeaths2 <- mutate(NYcancerdeaths2, whites_total100k = whites100k + white_nothisp.100k,
blacks_total100k = blacks100k + black_nothisp.100k)
print(NYcancerdeaths2)

GGplot Plotting Cancer Deaths in the NY County

library(ggplot2)
NYCounty<- c(299.2, 399.8, 118.4, 180.7)
race<- c('WhitesPer100k', 'BlacksPer100k', 'Asian/Pacific IslandersPer100k', 'American IndiansPer100k')
NYcancerdeathbyrace = data.frame(race)
ggplot(data = NYcancerdeathbyrace ) + geom_col(aes(x=race, y=NYCounty), fill = "red") + labs(x="Race",y="CancerDeathsPer100k", title="Cancer Deaths by Race in NY County, 2006-2012") + theme(plot.title = element_text(hjust = 0.5))

The plot above shows that blacks have the highest incidence of cancer deaths per 100,000 people while asian/pacficic islanders had the lowest incidince of cancer deaths per 100,00 people.