R/seven_grid.R

In emhedlin/shiftie: sevenshifts utilities

#' Minimal plotting theme with a background grid and no border
#'
#' @return ggplot theme with grid background
#' @export
#'
seven_grid <- 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_line(colour = "#F7F7F7"),
          panel.grid.minor.x = element_blank(),
          panel.grid.minor.y = element_blank(),
          panel.grid.major.y = element_line(colour = "#F7F7F7"),
          panel.border = element_blank(),
          plot.title = element_text(size = 15, vjust = 1,
                                    hjust = 0.5, colour = "#939393"),
          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"))
    }