<- paletteer::paletteer_d("miscpalettes::pastel")
br 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]]