R/seven_theme.R

In emhedlin/shiftie: sevenshifts utilities

#' General Plotting Theme
#'
#' @param x_angle Angle of x axis text.
#' @param x_hjust Horizontal adjustment to x axis text.
#' @param x_vjust Vertical adjustment to x axis text.
#' @param y_angle Angle of y axis text
#' @param y_hjust Horizontal adjustment to y axis text.
#' @param y_vjust Vertical adjustment to y axis text.
#'
#' @return ggplot theme.
#' @export
#'
seven_theme <- function(
    x_angle = 0,
    x_hjust = 0.5,
    x_vjust = 0,
    y_angle = 0,
    y_hjust = 0.5,
    y_vjust = 0.5
    ) {
    ggplot2::theme_bw() +
    ggplot2::theme(axis.text = element_text(size = 10),
          axis.title = element_text(size = 14, colour = "#939393"),
          axis.text.x = element_text(
            angle = x_angle,
            hjust = x_hjust, vjust = x_vjust,
            colour = "#D2D2D2"
          ),
          axis.text.y = element_text(
            angle = y_angle,
            hjust = y_hjust, vjust = y_vjust,
            colour = "#D2D2D2"
          ),
          axis.line.x = element_blank(),
          axis.line.y = element_blank(),
          axis.ticks.x = element_blank(),
          axis.ticks.y = element_blank(),
          panel.grid.major.x = element_blank(),
          panel.grid.minor.x = element_blank(),
          panel.grid.minor.y = element_blank(),
          panel.grid.major.y = element_blank(),
          panel.border = element_rect(colour = "#939393"),
          plot.title = element_text(size = 15, vjust = 1,
                                    hjust = 0.5, colour = "#D2D2D2"),
          legend.text = element_text(size = 10),
          legend.title = element_blank(),
          legend.key = element_rect(colour = NA, fill = NA),
          legend.background = element_rect(color = "#939393",
                                           fill = "transparent",
                                           size = 4, linetype = "blank"))
    }