In inbo/INBOtheme: Themes for ggplot2

Introduction

This vignette demonstrates the available colour palettes in the INBOtheme package. We show the palette as a plot with numbered rectangles. The number indicates the order in the palette.

library(knitr)
opts_chunk$set(
  echo = FALSE, message = FALSE, warning = FALSE
)
set.seed(20221128)
show_height <- 1.9
library(ggplot2)

library(INBOtheme)

Palettes

inbo_palette()

show_palette(inbo_palette())

demo_palette(inbo_palette())

vlaanderen_palette()

show_palette(vlaanderen_palette())

demo_palette(vlaanderen_palette())

traffic_palette()

Note that the traffic_palette() has a variable number of colours. It starts from a dark red colour and changes into a light green colour. Going gradually from dark to light makes this palette readable for colour blind people.

show_palette(traffic_palette(9))

demo_palette(traffic_palette(9))

show_palette(traffic_palette(3))

demo_palette(traffic_palette(3))

\FloatBarrier

ordinal_palette()

ordinal_palette() has a variable number of colours. It starts with a dark colour and end with a light colour. Other colours are intermediate colours, resulting in a gradient from dark to light. The colours depend on the active ggplot2 theme.

theme_set(theme_inbo())
show_palette(ordinal_palette(5))

demo_palette(ordinal_palette(5))

theme_set(theme_vlaanderen2015())
show_palette(ordinal_palette(5))

demo_palette(ordinal_palette(5))

theme_set(theme_elsevier())
show_palette(ordinal_palette(5))

demo_palette(ordinal_palette(5))

\FloatBarrier

Named colours

INBO colours

inbo_named <- c(
  inbo_donkerblauw, inbo_munt, inbo_oranjerood, inbo_grijsblauw,
  inbo_lichtgroen, inbo_groen, inbo_lichtgrijs, inbo_kaki, inbo_felrood,
  inbo_steun_blauw, inbo_geelgr, inbo_steun_geelgroen, inbo_steun_donkerroos,
  inbo_donkergroen, inbo_oranje, inbo_geel, inbo_lichtblauw, inbo_hoofd,
  inbo_rood, inbo_grijs, inbo_bruinrood, inbo_oranje, inbo_groen
)
show_palette(inbo_named)

demo_palette(inbo_named)

Flanders colours

vl_named <- c(
  vl_black, vl_darkblue, vl_darkbrown, vl_darkgreen, vl_darkred, vl_darkyellow,
  vl_grey1, vl_grey2, vl_grey3, vl_grey4, vl_grey5, vl_grey6, vl_grey7,
  vl_lightblue, vl_lightbrown, vl_lightgreen, vl_lightred, vl_yellow
)
show_palette(vl_named)

demo_palette(vl_named)

Simulate effect of colour blindness on the perception of palettes

inbo_palette()

show_palette(inbo_palette())

library(cluster)
inbo_palette() |>
  colour_blind_distance() |>
  agnes(method = "complete") |>
  plot(ask = FALSE, which.plots = 2, main = "")

library(colorspace)
demo_palette(deutan(inbo_palette()))

demo_palette(protan(inbo_palette()))

demo_palette(tritan(inbo_palette()))

demo_palette(desaturate(inbo_palette()))

\FloatBarrier

vlaanderen_palette()

show_palette(vlaanderen_palette())

vlaanderen_palette() |>
  colour_blind_distance() |>
  agnes(method = "complete") |>
  plot(ask = FALSE, which.plots = 2, main = "")

demo_palette(deutan(vlaanderen_palette()))

demo_palette(protan(vlaanderen_palette()))

demo_palette(tritan(vlaanderen_palette()))

demo_palette(desaturate(vlaanderen_palette()))

\FloatBarrier

traffic_palette()

demo_palette(deutan(traffic_palette(9)))

demo_palette(protan(traffic_palette(9)))

demo_palette(tritan(traffic_palette(9)))

demo_palette(desaturate(traffic_palette(9)))

\FloatBarrier

Named INBO colours

show_palette(inbo_named)

colour_blind_distance(inbo_named) |>
  agnes(method = "complete") |>
  plot(ask = FALSE, which.plots = 2, main = "")

demo_palette(deutan(inbo_named))

demo_palette(protan(inbo_named))

demo_palette(tritan(inbo_named))

demo_palette(desaturate(inbo_named))

\FloatBarrier

Named Flanders colours

show_palette(vl_named)

colour_blind_distance(vl_named) |>
  agnes(method = "complete") |>
  plot(ask = FALSE, which.plots = 2, main = "")

demo_palette(deutan(vl_named))

demo_palette(protan(vl_named))

demo_palette(tritan(vl_named))

demo_palette(desaturate(vl_named))

inbo/INBOtheme documentation built on April 6, 2023, 5:09 a.m.