Options - styling charts

The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

Victor Perrier

2023-09-29

Title

Add a title to your chart with bb_title or bb_labs (bb_labs is a shortcut to set title and axis labels at the same time, but with no options for placement) :

billboarder() %>% 
  bb_barchart(table(sample(letters[1:6], 50, TRUE))) %>% 
  bb_title(text = "My title", position = "center")

Colors

You can specify a new color palette with function bb_color :

data("prod_par_filiere")
prod_par_filiere[, c(1, 3, 4, 5, 6, 8)]
#>   annee prod_therm prod_hydraulique prod_bioenergies prod_eolien prod_solaire
#> 1  2012       48.1             63.8              5.8        14.9          4.1
#> 2  2013       43.6             75.5              7.1        15.9          4.7
#> 3  2014       25.9             68.1              7.5        17.1          5.9
#> 4  2015       34.4             59.1              8.0        21.1          7.4
#> 5  2016       45.9             63.9              8.5        20.7          8.3

# Default
billboarder() %>% 
  bb_barchart(data = prod_par_filiere[, c(1, 3, 4, 5, 6, 8)])


# RColorBrewer palette
library("RColorBrewer")
billboarder() %>% 
  bb_barchart(data = prod_par_filiere[, c(1, 3, 4, 5, 6, 8)]) %>% 
  bb_color(palette = brewer.pal(n = 5, name = "Dark2"))

Or you can specify each color associated with data with bb_colors_manual :

billboarder() %>% 
  bb_barchart(data = prod_par_filiere[, c(1, 3, 4, 5, 6, 8)]) %>% 
  bb_colors_manual(
    prod_therm = "maroon",
    prod_hydraulique = "royalblue",
    prod_bioenergies = "forestgreen",
    prod_eolien = "plum",
    prod_solaire = "goldenrod"
  )

Note : be careful when using named colors, CSS don’t recognize color variant such as royalblue2, firebrick3, … Use HEX code instead.

For bar charts, you can highlight a value in a simple barchart with :

billboarder() %>% 
  bb_barchart(data = prod_par_filiere[, c(1, 4)], color = "grey") %>% 
  bb_bar_color_manual(values = c("2015" = "firebrick"))

Axis

Add a label to an axis :

# data source : wikipedia
sw <- data.frame(
  film = c("The Force Awakens", "The Phantom Menace",
           "Revenge of the Sith", "A New Hope", 
           "Attack of the Clones", "The Empire Strikes Back", 
           "Return of the Jedi"),
  worldwide_gross = c(2068178225, 1027044677, 848754768,
                      775398007, 649398328, 538375067, 475106177)
)

billboarder() %>% 
  bb_barchart(data = sw) %>% 
  bb_y_axis(label = list(text = "Worldwide grosses", position = "outer-middle"))

You can format values on an axis with JavaScript (use htmlwidgets::JS to mark your character string as literal JavaScript) :

billboarder() %>% 
  bb_barchart(data = sw) %>% 
  bb_y_axis(tick = list(
    values = c(0, 5e+08, 1e+09, 1.5e+09, 2e+09),
    outer = FALSE,
    format = htmlwidgets::JS("d3.formatPrefix('$,.0', 1e6)")
  ))

If you just want to add a suffix or prefix to the value, use the functions with the same name :

sw2 <- sw
# calculate percentage
sw2$percent <- sw2$worldwide_gross / sum(sw2$worldwide_gross) * 100
sw2$percent <- round(sw2$percent)

sw2$worldwide_gross <- NULL

billboarder() %>% 
  bb_barchart(data = sw2) %>% 
  bb_y_axis(tick = list(format = suffix("%")))

You can apply a format to x axis as well (especially useful with time), and fit = FALSE to don’t show all ticks :

data("cdc_prod_filiere")
billboarder() %>% 
  bb_linechart(data = cdc_prod_filiere[, c("date_heure", "prod_solaire")]) %>% 
  bb_x_axis(tick = list(format = "%H:%M", fit = FALSE))

Set a minimum on an axis (and look at the difference between above x-axis and below, without fit = FALSE) :

billboarder() %>% 
  bb_linechart(data = cdc_prod_filiere[, c("date_heure", "prod_solaire")]) %>% 
  bb_y_axis(min = 0, padding = 0)

Legend

By default, legend is shown, you can hide it with bb_lengend

df <- data.frame(
  cos = cos(seq(-pi, pi, length.out = 30))
)

# No legend
billboarder() %>% 
  bb_linechart(data = df) %>% 
  bb_legend(show = FALSE)

You can change the name appearing in the legend with bb_data, by giving an alias to the variable in the data. Here we have a column named cos in our data.frame, we renamed it Cosine.

billboarder() %>% 
  bb_linechart(data = df) %>% 
  bb_data(names = list(cos = "Cosine"))

Legend can be postionned with argument position, three values are possible : "bottom" (the default), "right" and "inset". For the last one, you must specify in which area of the chart the legend must be placed.

df$sin <- sin(seq(-pi, pi, length.out = 30))

billboarder() %>% 
  bb_linechart(data = df) %>% 
  bb_legend(position = "right")


billboarder() %>% 
  bb_linechart(data = df) %>% 
  bb_legend(position = "inset", inset = list(anchor = "top-left"))

Grids

You can add grids to a chart with bb_x_axis and bb_y_axis :

billboarder() %>% 
  bb_linechart(data = df) %>%
  bb_y_grid(show = TRUE) %>% 
  bb_x_grid(show = TRUE)

This option also allows you to add vertical and horizontal lines :

billboarder() %>% 
  bb_linechart(data = df) %>%
  bb_y_grid(lines = list(
    list(value = 0, text = "Zero")
  ))

Tooltip

You can show the tooltip separately for each serie in the chart :

billboarder() %>% 
  bb_linechart(data = df) %>%
  bb_tooltip(grouped = FALSE)

You can change the format of the tooltip with a JavaScript function, for example d3.format. Write the function as a character vector, and use htmlwidgets::JS to mark it as literal JavaScript code.

billboarder() %>% 
  bb_barchart(data = sw) %>% 
  bb_tooltip(format = list(
    name =  htmlwidgets::JS("function(name, ratio, id, index) {return 'Worldwide grosses';}"),
    value = htmlwidgets::JS("d3.format('$,')")
  ))

End

All options combined :

billboarder() %>% 
  bb_barchart(data = sw, color = "#CAD5DB") %>% 
  bb_bar_color_manual(values = c("A New Hope" = "#112446")) %>% 
  bb_legend(show = FALSE) %>% 
  bb_y_grid(show = TRUE) %>% 
  bb_y_axis(tick = list(
    values = c(0, 5e+08, 1e+09, 1.5e+09, 2e+09),
    outer = FALSE,
    format = htmlwidgets::JS("d3.formatPrefix('$,.0', 1e6)")
  )) %>% 
  bb_tooltip(format = list(
    name =  htmlwidgets::JS("function(name, ratio, id, index) {return 'Worldwide grosses';}"),
    value = htmlwidgets::JS("d3.format('$,')")
  )) %>% 
  bb_labs(
    title = "Star Wars - Total Lifetime Grosses", 
    y = "Worldwide grosses",
    caption = "Data source : wikipedia"
  )

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.