Function

コメント・参照等
  • dygraphsで時系列チャートを作成する関数

FUN = f_dygraph.r
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)
}