Interactive graphs created using R

### read NCDC data
library(dygraphs)
csv.path <- "http://spatial.binghamton.edu/PPR/PPR_NCDC_1895_2015.csv"
df <- read.csv(csv.path)
PHDI <- ts(df$PHDI,start = c(1895,1),frequency = 12)
PCP <- ts(df$PCP,start = c(1895,1),frequency = 12)
dygraph(PHDI, main = "Palmer Hydrological Drought Index (PHDI) in the Pipestem (1895-2016)") %>% 
  dyRangeSelector(dateWindow = c("1895-01-01", "2016-01-01"))

        Use the slider to zoom in and zoom out; double click the chart to return to full extent

dygraph(PCP, main = "Precipitation Index in the Pipestem (1895-2016)") %>% 
  dyRangeSelector(dateWindow = c("1895-01-01", "2016-01-01"))

        Use the slider to zoom in and zoom out; double click the chart to return to full extent