joshmuncke/redbull

ggplot2 Colour Scales for Red Bull Data Science projects

redbull

The redbull package contains ggplot2 colour themes for use in Red Bull Data Science projects.

Installation

You can install redbull from github with:

# You need to install the 'devtools' package first
devtools::install_github("deathbydata/redbull")

The Palettes

There are several colours and palettes built in to the package. Additions and modifications are welcomed! See the palettes.R file for the details.

• redbull (default)
• rbfull
• rbcool
• rbwarm
• rbyellowgrey
• bloomberg
• bloombergfull

Usage

Usage is through the functions scale_fill_redbull and scale_colour_redbull depending on your plot aesthetic.

library(ggplot2)
library(redbull)
library(magrittr)

# Using colour aesthetic (points/lines)
mtcars %>% 
  ggplot(aes(x = wt, y = mpg, colour = as.factor(cyl))) + 
  geom_point(size = 4, alpha = 0.75) + 
  scale_colour_redbull()

# Using fill aesthetic (bars/areas)
mtcars %>% 
  ggplot(aes(x = as.factor(carb), fill = as.factor(carb))) + 
  geom_bar() + 
  scale_fill_redbull("rbfull")

You can use discrete = FALSE if you have continuous values. reverse = TRUE will flip the direction of the colours in the palette.

mtcars %>% 
  ggplot(aes(x = disp, y = wt, colour = hp)) + 
  geom_point(size = 4.5, colour = "black") +
  geom_point(size = 4) + 
  scale_color_redbull("rbwarm", discrete = FALSE, reverse = TRUE) +
  ggtitle("Relationship between engine weight and displacement",
          "Colour shows engine horsepower") +
  xlab("Engine displacement (cc)") +
  ylab("Engine weight (?)")

For discrete scales you can select the behaviour when there are more levels of your factor than palette colours using the rep parameter.

mtcars %>% 
  ggplot(aes(x = as.factor(carb), fill = as.factor(carb))) + 
  geom_bar() + 
  scale_fill_redbull("rbyellowgrey", rep = TRUE)

mtcars %>% 
  ggplot(aes(x = as.factor(carb), fill = as.factor(carb))) + 
  geom_bar() + 
  scale_fill_redbull("rbyellowgrey", rep = FALSE)

theme_rb

The redbull package also contains a full ggplot2 theme which you can apply using theme_rb(). To use this as the default theme for all charts in your script or notebook use theme_set(theme_rb()).

theme_set(theme_rb())

mtcars %>% 
  ggplot(aes(x = disp, y = wt, colour = hp)) + 
  geom_point(size = 4.5, colour = "black") +
  geom_point(size = 4) + 
  scale_color_redbull("rbwarm", discrete = FALSE, reverse = TRUE) +
  labs(title = "Relationship between engine weight and displacement",
       subtitle = "Colour shows engine horsepower",
       caption = "Source: R mtcars dataset") +
  xlab("Engine displacement (cc)") +
  ylab("Engine weight (?)")