R/theme_ku.R

In lpalomerol/ggplotToolR: Some basic tools related with ggplot designs

#' theme ku
#'
#' This is an example custom theme for an ggplot object.
#' It has been evolved from here https://rstudio-pubs-static.s3.amazonaws.com/570580_1ee08ab4cad0497fa5718f12bbac6f5c.html
#'
#' @export
#'
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 element_line
#' @importFrom ggplot2 element_rect
#' @importFrom ggplot2 element_text
#' @importFrom ggplot2 %+replace%
#' @importFrom ggplot2 theme_minimal
#' @return ggplot object
#'
theme_ku <- function(){
  theme_classic () %+replace%
    theme(
      text = element_text(face = 'italic', color = 'darkgray'),
      axis.text = element_text(face = 'italic', color = 'darkgray'),
      axis.line = element_line(
        color = 'darkgray'
      ),
      axis.ticks = element_line(
        color = 'darkgray'
      ),
      panel.background = element_rect(
        fill = 'white',
        size = 0

      )
    )
}