R/seven_nox.R

In emhedlin/shiftie: sevenshifts utilities

#' General Plotting Theme
#'
#' @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 with no x axis.
#' @export
#'
seven_nox <- function(
    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_blank(),
                  axis.line.y = element_line(color = "#D2D2D2", size = 0.3),
                  axis.line.x = element_blank(),
                  axis.text.y = element_text(
            angle = y_angle,
            hjust = y_hjust, vjust = y_vjust,
            colour = "#D2D2D2"
          ),
                  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_blank(),
                  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"))
}