theme_duke()
In duke: Creating a Color-Blind Friendly Duke Color Package

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 8,
  fig.asp = 0.618
)

This vignette is intended to demonstrate the breadth of theme_duke() and its various applications. Similar to the other functions within the theme(), this function can be applied to all visualizations made with ggplot2.

Plot Examples

For these visualizations, we will use the penguins dataset from the palmerpenguins package.

library(palmerpenguins)
library(ggplot2)
library(duke)

Scatter Plot

p <- ggplot(penguins, aes(bill_length_mm, flipper_length_mm)) +
  geom_point(aes(colour = species)) +
  labs(
    title = "Bill Length vs. Flipper Length", 
    caption = "There are three different species of penguins.", 
    x = "Bill Length (mm)", 
    y = "Flipper Length (mm)"
  )

p +
  theme_duke()

Bar Plot

p <- ggplot(penguins, aes(species)) +
  geom_bar(aes(fill = species)) +
  labs(
    title = "Species Count", 
    caption = "There are three different species of penguins.", 
    x = "Species", 
    y = "Count"
  )

p +
  theme_duke()

Histogram

p <- ggplot(penguins, aes(body_mass_g)) +
  geom_histogram(aes(fill = species)) +
  labs(
    title = "Distribution of Penguin Body Mass", 
    caption = "There are three different species of penguins.", 
    x = "Body Mass (g)", 
    y = "Count"
  )

p +
  theme_duke()

Box Plot

p <- ggplot(penguins, aes(sex, body_mass_g)) +
  geom_boxplot() +
  labs(
    title = "Comparison of Body Mass By Sex", 
    x = "Sex", 
    y = "Body Mass (g)"
  )

p +
  theme_duke()

Density Plot

p <- ggplot(penguins, aes(bill_depth_mm)) +
  geom_density() +
  labs(
    title = "Density of Penguin Bill Depth", 
    x = "Bill Depth (mm)", 
    y = "Densiy"
  )

p +
  theme_duke()

Jitter Plot

p <- ggplot(penguins, aes(year, body_mass_g)) +
  geom_jitter() +
  labs(
    title = "Comparison of Body Mass By Year", 
    x = "Year", 
    y = "Body Mass (g)"
  )

p +
  theme_duke()