#### Graph Lees Ferry Annual Flow for Historical period

## Install package & load library
# install.packages("ggplot2") #if you havent installed the package
library(ggplot2)

url =  "http://civil.colorado.edu/~balajir/r-session-files/Leesferry-mon-data.txt"

## read data
data = read.table(url)
data[2:13] = data[2:13] /10^6 #convert to MAF
colnames(data) <- c("Year","Jan", "Feb", "Mar", "Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")

## add annual sum column in data frame
data$ann_sum = apply(data[2:13], 1, FUN = sum)

str(data) #data frame contains all featurs we need to plot

#########################

## Creat Plot using qplot()
p = qplot(x = Year, y = ann_sum, data = data, 
          geom = "line", xlab = "Years", ylab = "Annual Flow (MAF)")

p

p + theme_bw() #change themes

## Creat Plot using ggplot()
p = ggplot(data, aes(x = Year, y = ann_sum))

p =  p + geom_line(color = "black") +
  labs(x = "Years", y = "Annual Flow (MAF)")

p

p + geom_point(color = "blue") 

p + geom_smooth(method ="lm")