Guinea worm visualisation

GuineaWorm.csv

Visual.r

library(ggplot2)
library(ggthemes)
library(MASS) # to access Animals data sets
library(scales)
library(ggplot2)
library(ggthemes)

mydata = read.csv("GuineaWorm.csv")

mydata2<-mydata %>%  select(cases,year) %>% mutate(log2= log(cases))


ggplot(mydata2, aes(year, cases))+
  theme_update(plot.title = element_text(hjust = 0.5))+
  theme_tufte() +
  geom_point(color='#d498a3') +
     scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
              labels = trans_format("log10", math_format(10^.x)))+
#  annotate("text", x = 2012, y = 10, label = "@iamreddave data:Carter Center", size = 3.0)+Guinea Worm Eradication Program
  annotate("text", x = 1992, y = 3400000, label = "Carter Center Eradication Program Begins", size = 3.0)+
  annotate("text", x = 1989, y = 10, label = "WHO Certified Worm Free", size = 3.0)+
  annotate("segment", x = 2000, xend = 2000, y = 5, yend = 60, colour = "wheat1", size=4) +
  annotate("text", x = 2000, y = 15, label = "India", size = 4.0,angle = 90)+
        annotate("segment", x = 2000, xend = 2000, y = 6, yend = 35, colour = "firebrick3", size = 0.25)+
   annotate("segment", x = 2013, xend = 2013, y = 4, yend = 60, colour = "wheat1", size=4) +
  annotate("text", x = 2013, y = 15, label = "Nigeria", size = 4.0,angle = 90)+
        annotate("segment", x = 2013, xend = 2013, y = 5, yend = 50, colour = "firebrick3", size = 0.25)+ 
     annotate("segment", x = 2011, xend = 2011, y = 2, yend = 200, colour = "wheat1", size=4) +
  annotate("text", x = 2011, y = 19, label = "Burkino Faso", size = 4.0,angle = 90)+ 
  annotate("segment", x = 2011, xend = 2011, y = 2.5, yend = 125, colour = "firebrick3", size = 0.25)+
    annotate("segment", x = 2007, xend = 2007, y = 3, yend = 90, colour = "wheat1", size=4) +
  annotate("text", x = 2007, y = 17, label = "Cameroon", size = 4.0,angle = 90)+  
  annotate("segment", x = 2007, xend = 2007, y = 3, yend = 85, colour = "firebrick3", size = 0.25)+
    annotate("segment", x = 2004, xend = 2004, y = 5, yend = 60, colour = "wheat1", size=4) +
  annotate("text", x = 2004, y = 17, label = "Yemen", size = 4.0,angle = 90)+ 
  annotate("segment", x = 2004, xend = 2004, y = 5, yend = 35, colour = "firebrick3", size = 0.25)+
    annotate("segment", x = 1996, xend = 1996, y = 4, yend = 70, colour = "wheat1", size=4) +
  annotate("text", x = 1996, y = 17, label = "Pakistan", size = 4.0,angle = 90)+ 
  annotate("segment", x = 1996, xend = 1996, y = 5, yend = 60, colour = "firebrick3", size = 0.25)+
      annotate("segment", x = 2005, xend = 2005, y = 4, yend = 70, colour = "wheat1", size=4) +
  annotate("text", x = 2005, y = 17, label = "Senegal", size = 4.0,angle = 90)+ 
  annotate("segment", x = 2005, xend = 2005, y = 5, yend = 65, colour = "firebrick3", size = 0.25)+
        annotate("segment", x = 2009, xend = 2009, y = 4, yend = 60, colour = "wheat1", size=4) +
  annotate("text", x = 2009, y = 17, label = "Uganda", size = 4.0,angle = 90)+ 
  annotate("segment", x = 2009, xend = 2009, y = 5, yend = 55, colour = "firebrick3", size = 0.25)+
  #geom_smooth(color='darkred')+
  ggtitle("Guinea Worm Cases per Year")

ggsave("guinea.png")