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"))