dygraph(dysp, main = titre) %>% dyAxis("y", label = "Intensity (a.u.)") %>% dyAxis("x", label = paste("Time")) %>% dyRangeSelector(keepMouseZoom = TRUE) %>% dyOptions(stackedGraph = FALSE, fillGraph = TRUE, colors = dycol, axisLineWidth = 1.5, gridLineColor = "lightblue", connectSeparatedPoints = TRUE) %>% dyLegend(show = "onmouseover", hideOnMouseOut = TRUE) %>% dyUnzoom()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.