R/theme_DT.R

In St-Digital-Twin/Dtwin: Re-usable functions for City Dtwin

#' @title ggplot theme styled by Digital Twin LLC
#' @description Adding to ggplot diagrams to stylize branded colors
#' @param color Backgroung color, black by default
#' @return theme to ggplot2
#' @export
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 element_text
#' @importFrom ggplot2 element_rect
#' @importFrom ggplot2 element_blank
#' @importFrom ggplot2 element_line
#' @examples
#' ggplot(iris %>% as_tibble()) +
#'  geom_point(aes(x = Sepal.Width, y = Sepal.Length, color = Species)) +
#'  theme_dt()
#'
#' +theme_dt("white")
#'

theme_dt <- function (color = "black") {

   if(color == "black") color2 <- "white" else color2 <- "black"

   theme(      text              = element_text (family = "Panton",
                                                 color  = color2   ),
               rect              = element_rect (fill   = color    ),
               line              = element_line (color  = color    ),
               title             = element_text (size   = 20,
                                                 face   = "bold"   ),

               legend.position   = "bottom",
               legend.title      = element_text (size  = 12,
                                                 color = color2,
                                                 face  = "bold"    ),
               legend.key        = element_rect (fill  = color     ),
               legend.background = element_rect (fill  = color     ),
               legend.text       = element_text (size  = 12,
                                                 color = color2,
                                                 face  = "bold"    ),

               panel.background  = element_rect (fill = color),
               panel.grid        = element_blank(),

               axis.title.x      = element_text (size  = 16        ),
               axis.title.y      = element_text (size  = 16        ),
               axis.text         = element_text (size  = 12,
                                                 color = color2    ),
               plot.caption      = element_text (size  = 8,
                                                 face  = "italic",
                                                 color = color2)

               )
}