~/code/R/

Example 1

br <- paletteer::paletteer_d("miscpalettes::pastel")
list(
  dygraph(data.xts$TTF, main="Natural Gas (TTF)", group="fossils") |> dyOptions(colors = br[4]) |> dyAxis("y", logscale=TRUE),
  dygraph(data.xts$BZE, main="Oil (brent)", group="fossils") |> dyOptions(colors = "gray40") |> dyAxis("y", logscale=TRUE) ,
  dygraph(data.xts$API4E, main="Coal (API4E)", group="fossils") |> dyOptions(colors = br[5]) |> dyAxis("y", logscale=TRUE))
## [[1]]
## 
## [[2]]
## 
## [[3]]