Question 1

Measles

Measles is a disease that is highly contagious and quite deadly, especially so for young children. It is so contagious because it is airborne and spread through coughing, sneezing, and even breathing the same air as someone infected. This graph displays the total number of global measles cases annually between 1980 and 2017.

dat <- read.csv("C:/Users/austi/Downloads/measles.csv.csv", stringsAsFactors=TRUE)

barplot(dat$measles.cases, dat$year, names.arg=c(dat$year), xlab="Year", ylab="Total Cases",main = "Total Measles Cases Per Year", beside=TRUE, col =c("blue","orange"),axis.lty=1, las=3, cex.names = .7)

As we can see from this graph the rate of measles infections has steadily declined over the years to the level that it is at in 2017. Just because infections have declined globally does not mean that the threat of measles has passed however. While the measles vaccine was discovered in 1963 it took some time for vaccination to be common globally. A number of infections still occur every year even with high vaccination rates.

Question 2

In this next graph, whose data spans the years 1985-2005, the rate of vaccination is compared to the number of cases reported that year. With this graph we can analyze the relationship between these two factors to see if there is a correlation between the number of new infections and vaccination rates.

library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
p <- plot_ly(data=dat,y=dat$measles.cases[13:33],x=dat$vaccination.coverage[13:33], type = "scatter", mode = "markers")

 layout(p,title = "Cases VS Vaccination Rate", yaxis = list(title = "Total Number of Cases"), xaxis = list(title = "Vaccination Rate"))

Ultimately the graph generally trends so that the higher the vaccination rate is the less annual cases of measles occurred. However even the highest rates of vaccination on the graph still correlate with a not insignificant amount of measles cases. Vaccination therefor is important for keeping the number of cases low. Perhaps with full vaccination(in all who can be vaccinated) measles can be eliminated.