R/liu_theme.R

In eliscl/lab4: Estimates linear regression.

#' A ggplot2-theme following Linkoping University's graphical design.
#' @export

liu_theme <- function() {

  color1 <- "#00b9e7"
  color2 <- "#17c7d2"
  theme(
    # Title
    plot.title = element_text(
      face = "bold",
      size = 20,
      color = color1),
    #Subtitle
    plot.subtitle = element_text(
      size = 14,
      color = color1),
    #Caption
    plot.caption = element_text(
      size = 9,
      color = color1),

    axis.title = element_text(
      size = 10,
      color = color1),

    panel.background = element_rect(fill = color2),
    panel.grid = element_line(color = color1),
  )
}