In this document I will explain how I am using dataframe with julian days to convert to xts document and then use dygraphs to create interactive graphs.

file <- "D:/Projects/ExxonMobil/2013 Newtown Creek/Models/201406_AQ/SEDTRAN/2006_Dep/Mon8 Jd testing/Run 3/#output/L1128-sb-class1.txt"


read_sb <- function(file){
  dat <- read.table(file, header = F, sep="")
  names(dat) <- c("Time", "PA_ERO_SB",  "PA_DEP_SB",  "PA_DELTA_SB",  "PA_TOTAL_SB")
  return(dat)
}

class1_sed <- read_sb("D:/Projects/ExxonMobil/2013 Newtown Creek/Models/201406_AQ/SEDTRAN/2006_Dep/Mon8 Jd testing/Run 3/#output/L1128-sb-class1.txt")

library(lubridate)
class1_sed$datetime <- date_decimal(class1_sed$Time/365 + 2006)

library(xts)
## Warning: package 'xts' was built under R version 3.1.3
## Loading required package: zoo
## Warning: package 'zoo' was built under R version 3.1.2
## 
## Attaching package: 'zoo'
## 
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
library(dygraphs)
## Warning: package 'dygraphs' was built under R version 3.1.3
library(RColorBrewer)
## Warning: package 'RColorBrewer' was built under R version 3.1.2
cs1 <- xts(class1_sed[, -6], order.by = class1_sed[, 6])
dygraph(cs1[,-1], main = "Intermediate Parameters") %>%
  dyLegend(width = 400) %>% dyRangeSelector(dateWindow = c("2006-08-10", "2006-08-15")) %>% 
  dyOptions(colors = RColorBrewer::brewer.pal(4, "Set1"))