# NOT RUN {
data("prod_par_filiere")
billboarder() %>%
bb_barchart(data = prod_par_filiere[, c("annee", "prod_hydraulique")], color = "#102246") %>%
bb_legend(show = FALSE) %>%
bb_labs(title = "French hydraulic production",
y = "production (in terawatt-hours)",
caption = "Data source: RTE (https://opendata.rte-france.com)")
# }
Run the code above in your browser using DataLab