Domingos Savio Apolonio Santos, 04/18/2015
The app use a subset of the data from the World Health Organization (WHO) with the following features:
temp = subset(morticd10, Country == input$country & Cause == input$cause)
After the user selects the countries and cause, the application plots the line graph with the data from selected countries, and a respective boxplot. The application also shows the respective table with the subset of the data.
subset <- read.csv("subset.csv")
library(ggplot2); library(gridExtra)
p1 <- qplot(Year, Deaths, data = subset, color=Country, geom = "line",
main = paste0("Cause of Deaths: ", subset$Cause[1])[1]) + theme(legend.position = "bottom")
p2 <- ggplot(subset, aes(x = Country, y = Deaths)) + geom_boxplot()
grid.arrange(p1, p2, ncol = 1)