gist3.R

theme_beak_off <- function(base_text_size = 16) {
  theme_minimal(base_size = base_text_size) +
    theme(
      text = element_text(family = "Work Sans"),
      axis.text = element_text(colour = "#495058"),
      legend.position = "none",
      axis.title = element_blank(),
      plot.title = element_text(
        family = "Poppins",
        face = "bold",
        size = rel(1.5)
      ),
      panel.grid = element_line(colour = "#FFFFFF"),
      plot.background = element_rect(fill = "#F4F5F6", colour = "#F4F5F6"),
      plot.caption = element_text(
        size = rel(0.8),
        margin = margin(base_text_size / 2, 0, 0, 0)
      ),
      plot.margin = margin(rep(base_text_size * 1.5, 4))
    )
}