R/theme_learning_team.R

In Kidapt/keda: A Package to Support Exploratory Data Analysis

#' a ggplot theme for kidaptive's learning team
#'
#' a ggplot theme for kidaptive's learning team
#' @keywords theme ggplot
#' @export
#' @examples
#' ggplot(mtcars, aes(wt, mpg) + geom_point() + theme_learning_team()

theme_learning_team <- function(){
  theme_minimal() +
    theme(
      panel.grid.major.y = element_line(),
      panel.grid.major.x = element_blank(),
      panel.grid.minor = element_blank(),
      axis.line = element_line(colour = "black"),
      text = element_text(size = 15),
      axis.ticks = element_line(),
      strip.background = element_rect(colour="black", fill="white")
    )
}