R/seven_bare.R

In emhedlin/shiftie: sevenshifts utilities

#' Minimal Plotting Theme
#'
#' @return ggplot theme with no x or y axis.
#' @export
#'
seven_bare <- function() {
  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.text.y = element_blank(),
                   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_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.position = c(0.9, 0.9),
                   legend.key = element_rect(colour = NA, fill = NA),
                   legend.background = element_rect(color = "black",
                                                    fill = "transparent",
                                                    size = 4, linetype = "blank"))
}