library(civilytics)
library(ggplot2)
library(grid)
data(mtcars)

ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point() +
  labs(title = "This is the title", subtitle = "More context.",
         caption = "JEK made this for you.") +
  theme_civilytics_dark(font_size = 16)



(ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point() +
  labs(title = "This is the title", subtitle = "More context.",
         caption = "JEK made this for you.") +
  theme_civilytics_dark(font_size = 16)) |>
  civilytics_logo(variant = "dark") |>
  grid::grid.draw()

dev.off()

(ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point() +
  labs(title = "This is the title", subtitle = "More context.",
         caption = "JEK made this for you.") +
  theme_civilytics_dark()) |>
  civilytics_logo(variant = "dark") |>
  grid::grid.draw()

dev.off()

(ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point() +
  labs(title = "This is the title", subtitle = "More context.",
         caption = "JEK made this for you.") +
  theme_civilytics_dark(font_size = 14)) |>
  civilytics_logo(variant = "dark") |>
  grid::grid.draw()

dev.off()
(ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point() +
  labs(title = "This is the title", subtitle = "More context.",
         caption = "JEK made this for you.") +
  theme_civilytics_dark(font_size = 16)) |>
  civilytics_logo(variant = "dark", position = "top-right") |>
  grid::grid.draw()