Prevalence of ASD in the US from most recent 4 CDC ADDM surveys

cdc_addm_all.csv

index.html

# load packages
suppressWarnings(suppressMessages(library(dplyr)))
suppressWarnings(suppressMessages(library(ggplot2))) # devtools::install_github("hadley/ggplot2") only if you want subtitles/captions
suppressWarnings(suppressMessages(library(tidyr)))
suppressWarnings(suppressMessages(library(readr)))
suppressWarnings(suppressMessages(library(ggthemes)))

# source file path
source_cdc <- "update file path/cdc_addm_all.csv"

# load data files & rename cols
cdc <- read_csv(source_cdc, col_names = TRUE)

# filter sites 
addm_for_plot <- cdc %>%
  filter(!(site %in% c("Total", "Florida", "Pennsylvania")))


# small multiples plot
cols <- c("#4878CF", "#6ACC65")
addm <- ggplot(addm_for_plot) 
addm <- addm + geom_line(aes(group = for_line, x = year_survey, y = prevalence_1000, colour = data_source), lty = 3) 
addm <- addm + geom_pointrange(aes(x = year_survey, y = prevalence_1000, ymin = l95_1000, ymax = u95_1000,  colour = data_source), size = .5, fatten = 2) 
addm <- addm + facet_wrap(~ site) 
addm <- addm + scale_x_continuous(breaks = c(2006, 2008, 2010, 2012), name = "ADDM Survey Year") 
addm <- addm + scale_color_manual(values = cols, name = "Record Source", labels = c("Educational + Health", "Health only")) 
addm <- addm + expand_limits(x = c(2005, 2013), y = 0) 
addm <- addm + scale_y_continuous(name = "Prevalence per 1000 children aged 8 years (95% CI)") 
addm <- addm + theme_hc()  
addm <- addm + labs(title = "Prevalence of Autism Spectrum Disorder Among Children Aged 8 Years in the US Across 4 Survey Years", subtitle = "Content source: CDC Autism and Developmental Disabilities Monitoring (ADDM) Network")
addm <- addm + theme(plot.title=element_text(face="bold", size=10, margin=margin(b=6)))
addm <- addm + theme(panel.grid.major.y = element_line(size = .25))
addm <- addm + theme(axis.ticks = element_blank())
addm <- addm + theme(plot.subtitle=element_text(size=8))
addm
  
    

thumbnail.png