Asthma

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

ggplot(data = cd_ast_sd, mapping = aes(x= Year, y = Value, color = Race, shape = Sex)) + 
    geom_point () +
    facet_wrap(facets = vars(Race)) +
    labs(title = "Chronic Disease -San Diego - Asthma", subtitle = "(Heart Disease Mortality Rate (Age-Adjusted; Per 100,000 people))", x = "Year", y = "Heart Disease Mortality Rate", caption = "Data includes 2010-2015") +
theme_light()

ggplot(data = cd_ast_phoe, mapping = aes(x= Year, y = Value, color = Race, shape = Sex)) + 
    geom_point () +
    facet_wrap(facets = vars(Race)) +
    labs(title = "Chronic Disease - Phoenix - Asthma", subtitle = "(Heart Disease Mortality Rate (Age-Adjusted; Per 100,000 people))", x = "Year", y = "Heart Disease Mortality Rate", caption = "Data includes 2010-2015") +
theme_light()

ggplot(data = cd_ast_lv, mapping = aes(x= Year, y = Value, color = Race, shape = Sex)) + 
    geom_point () +
    facet_wrap(facets = vars(Race)) +
    labs(title = "Chronic Disease - Las Vegas, NV - Asthma", subtitle = "(Asthma Emergency Department Visit Rate (Age-Adjusted; Per 10,000))", x = "Year", y = "Heart Disease Mortality Rate", caption = "Data includes 2010-2015") +
theme_light()

ggplot(data = cd_ast_denver, mapping = aes(x= Year, y = Value, color = Race, shape = Sex)) + 
    geom_point () +
    facet_wrap(facets = vars(Race)) +
    labs(title = "Chronic Disease - Denver - Asthma", subtitle = "(Asthma Emergency Department Visit Rate (Age-Adjusted; Per 10,000))", x = "Year", y = "Asthma Emergency Department Visit Rate", caption = "Data includes 2012-2015") +
theme_light()

ggplot(data = cd_ast_bos, mapping = aes(x= Year, y = Value, color = Race, shape = Sex)) + 
    geom_point () +
    facet_wrap(facets = vars(Race)) +
    labs(title = "Chronic Disease - Boston - Asthma", subtitle = "(Heart Disease Mortality Rate (Age-Adjusted; Per 100,000 people))", x = "Year", y = "Heart Disease Mortality Rate", caption = "Data includes 2010-2015") +
theme_light()

## Warning: Removed 1 rows containing missing values (geom_point).

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.