R/theme_bw_nogrid.R

In ggDoE: Modern Graphs for Design of Experiments with 'ggplot2'

#' Theme for plots used in 'ggDoE'
#'
#' @importFrom ggplot2 %+replace% theme_bw element_blank
#' @export
#' @return A simple black and white theme without grid.major and grid.minor for ggplot objects.
#'
#' @examples
#' library(ggplot2)
#' data <- ToothGrowth
#' data$dose <- factor(data$dose,levels = c(0.5, 1, 2),
#'                     labels = c("D0.5", "D1", "D2"))
#'
#' ggplot(data, aes(x=dose, y=len)) +
#'  geom_boxplot()+
#'  theme_bw_nogrid()
theme_bw_nogrid <- function(){
  theme_bw() %+replace%    #replace elements we want to change
    theme(
      #grid elements
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank()  #strip minor gridlines
    )
}