Time series plot of Bangladesh Malaria Incidence

cases <- read.table("C:/Users/User/Desktop/Mahidol-Oxford Bangkok/maldata.csv",sep = ",", strip.white = T, header = T)

summary(cases)

##       year         new.case     
##  Min.   :1991   Min.   : 26891  
##  1st Qu.:1996   1st Qu.: 53102  
##  Median :2003   Median : 59219  
##  Mean   :2003   Mean   : 66591  
##  3rd Qu.:2008   3rd Qu.: 65748  
##  Max.   :2014   Max.   :150682

head(cases)

##   year new.case
## 1 1991    62726
## 2 1992   114110
## 3 1993   123722
## 4 1994   150682
## 5 1995    98745
## 6 1996    67623

str(cases)

## 'data.frame':    23 obs. of  2 variables:
##  $ year    : int  1991 1992 1993 1994 1995 1996 1997 1998 1999 2001 ...
##  $ new.case: int  62726 114110 123722 150682 98745 67623 59219 36246 54430 59325 ...

plot(cases$new.case ~cases$year, type ="l",
     lwd=2, col="red",  xlab="Time(year)", ylab="new.case",
     main="Bangladesh Malaria incidence")