Function
コメント・参照等
function (datadf, col_date = 1, col_value = 2, addname = NULL, pointSize = 4, dygraphlegendwidth = 800, barchart = F)
{
dataxts <- as.xts(read.zoo(datadf[, c(col_date, col_value)]))
colnames(dataxts) <- paste0(colnames(datadf)[col_value], addname)
dydata <- dygraph(data = dataxts, main = colnames(dataxts)) %>% dyRangeSelector() %>% f_dyUnzoom() %>% dyCrosshair(direction = "both") %>% dyOptions(drawPoints = T, pointSize = pointSize) %>% dyLegend(width = dygraphlegendwidth, hideOnMouseOut = T, show = "onmouseover") %>% dyLimit(0, color = "red")
if (barchart) {
dydata <- dydata %>% dyBarChart()
}
return(dydata)
}