mort <- read.csv('~/Desktop/Data Incubator/Proposed Project/mortality/2005_data.csv')
#summary(mort)
#names(mort)

library(ggplot2)

mort_by_brain <- subset(mort, (mort$X358_cause_recode >= 174) & (mort$X358_cause_recode <= 194) & 
                          (mort$detail_age >= 20 & mort$detail_age <= 80))
p <- ggplot(aes(x = mort_by_brain$X358_cause_recode, y = mort_by_brain$detail_age), data = mort_by_brain) +
  geom_point(aes(color = X358_cause_recode)) +
  labs(x = "Deaths by diseases related to brain", y = "Age")
p