R/theme_lutes.R

In npaterno/stat231: Course Materials for Stat 231

#' {ggplot} theme.
#'
#' A ggplot theme based on PLU colors.
#'
#' @author Nick Paterno
#' @import ggplot2
#' @export
#' 



theme_lutes <- function(){
  theme(
    panel.background = element_rect(color = "#808080",
                                    fill = "#808080"),
    panel.grid.major.y = element_line(color = "#ffcc00",
                                      size = 1.25),
    panel.grid.minor.y = element_line(color = "#cc9933"),
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    plot.background = element_rect(fill = "#808080"),
    plot.title = element_text(color = "#ffffff",
                              family = "mono",
                              size = 16,
                              face = "italic"),
    plot.caption = element_text(color = "#ffffff",
                                family = "mono",
                                size = 10,
                                face = "italic"),
    axis.text = element_text(color = "#ffffff",
                             family = "mono",
                             size = 12),
    axis.ticks = element_blank(),
    axis.line.y = element_blank(),
    axis.title = element_text(color = "#ffffff",
                              family = "mono",
                              size = 14)
  )
}