R/alzheimer.R

#' @title alzheimer
#' @param x user inputed year from 1999-2013
#' @return Choropleth of Alzheimer related deaths
#' @description This function creates a choropleth of Alzheimer related deaths by year.
#' @import dplyr ggplot2
#' @export
#'

alzheimer = function(x)
{
  
  us <- map_data("state")
  
  AADR.DF <- read.csv("data/AADR-alzheimer.csv")
  
  YEAR=region=DEATHS=AADR=long=lat=NULL
  
  alzheimerwYear <- subset(AADR.DF, YEAR == x, select=c (YEAR, region, DEATHS, AADR))
  
  alzheimerwYear <- alzheimerwYear %>% 
    mutate(region=tolower(region))
  
  gg <- ggplot()
  
  gg <- gg + geom_map(data=us, map=us,
                      aes(x=long, y=lat, map_id=region),
                      fill="#ffffff", color="#ffffff", size=0.15)
  
  gg <- gg + geom_map(data=alzheimerwYear, map=us,
                      aes(fill=DEATHS, map_id=region),
                      color="#ffffff", size=0.15)
  
  gg <- gg + scale_fill_distiller(palette = "Purples", direction = 1)
  
  gg <- gg + labs(x=NULL, y=NULL) + ggtitle(paste0(x, " Alzheimer Deaths per 100,000"))
  
  gg <- gg + coord_map("albers", lat0 = 39, lat1 = 45)
  
  gg <- gg + theme(panel.border = element_blank())
  
  gg <- gg + theme(panel.background = element_blank())
  
  gg <- gg + theme(axis.ticks = element_blank())
  
  gg <- gg + theme(axis.text = element_blank())
  
  gg
  
}
mattphan/Age-Adjusted-Death-Rates documentation built on May 21, 2019, 1:25 p.m.