In Scott-S-Hannah/themeuu: Ulster University Style Guide

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%",
  dpi = 350
)

themeuu r emo::ji("bird")``r emo::ji("painting")

The goal of themeuu is to provide an easy to use style guide that adheres to Ulster University's branding criteria.

Installation

themeuu can be installed from GitHub with:

# install.packages("devtools")
devtools::install_github("Scott-S-Hannah/themeuu")

Example

themeuu currently possesses several colour scales that adhere to Ulster University's style guide. Other features such as a ggplot2 theme that uses Ulster University's typography etc. will be added shortly.

library(themeuu)
## basic example code
themeuu::ulster_palettes

Here is an example of the scale_color_ulster() function with the default colour scheme:

library(ggplot2)
ggplot(iris, aes(x = Sepal.Width, Sepal.Length, colour = Species)) +
  geom_point(size = 2) +
  scale_color_ulster(discrete = TRUE, palette = "main_1") +
  theme_light() +
  labs(title = "main_1 colour scheme")

themeuu possess several colour schemes:

p1 <- ggplot(iris, aes(x = Sepal.Width, Sepal.Length, colour = Species)) +
  geom_point(size = 2) +
  scale_color_ulster(discrete = TRUE, palette = "main_2") +
  theme_light() +
  labs(title = "main_2 colour scheme")

p2 <- ggplot(iris, aes(x = Sepal.Width, Sepal.Length, colour = Species)) +
  geom_point(size = 2) +
  scale_color_ulster(discrete = TRUE, palette = "mixed") +
  theme_light() +
  labs(title = "mixed colour scheme")

p3 <- ggplot(iris, aes(x = Sepal.Width, Sepal.Length, colour = Species)) +
  geom_point(size = 2) +
  scale_color_ulster(discrete = TRUE, palette = "cool") +
  theme_light() +
  labs(title = "cool colour scheme")

p4 <- ggplot(iris, aes(x = Sepal.Width, Sepal.Length, colour = Species)) +
  geom_point(size = 2) +
  scale_color_ulster(discrete = TRUE, palette = "hot") +
  theme_light() +
  labs(title = "hot colour scheme")

library(patchwork)
p1 + p2 + p3 + p4 +
  patchwork::plot_layout(guides = "collect")