R/seven_noy_grid.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 x axis text.
#' @param y_hjust Horizontal adjustment to x axis text.
#' @param y_vjust Vertical adjustment to x axis text.
#'
#' @return ggplot theme with no y line axis, but horizontal lines and y axis text.
#' @export
#'
seven_noy_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),
          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_line(color = "#D2D2D2", size = 0.3),
                  axis.line.y = element_blank(),
                  axis.ticks.y = element_blank(),
                  axis.ticks.x = 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_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"))
}