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()
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

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()
#> Warning: Removed 2 rows containing non-finite values (`stat_boxplot()`).

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()