R/theme_JS.R

In JohanSalomonssonSV/JSthemes:

##########
#' JS theme, which is built on Ricardo Bion's code for ggtech
#' @importFrom ggplot2 theme_classic theme element_text element_blank element_line element_rect
#' @export
#' @name theme_JS
#' @title JS themes  for ggplot2
#' @param theme theme JS
#' @param tech_key list of colors

theme_JS <- function(theme="JS", tech_key = list(
  # airbnb = list(
  #   family_title="Circular Air Bold"
  #   , family_text = "Circular Air Medium"
  #   , colour_title = "#F14000"
  #   , colour_text = "#535353"),
  # facebook = list(
  #   family_title="Facebook Letter Faces"
  #   , family_text = "Facebook Letter Faces"
  #   , colour_title = "#3D579D"
  #   , colour_text = "#535353"),
  # google = list(
  #   family_title="Product Sans"
  #   , family_text = "Product Sans"
  #   , colour_title = "#dd4b39"
  #   , colour_text = "black"),
  # etsy = list(
  #   family_title="Georgia"
  #   , family_text = "Georgia"
  #   , colour_title = "#F14000"
  #   , colour_text = "#535353"),
  # twitter = list(
  #   family_title="PicoBlackAl"
  #   , family_text = "[z] Arista Light"
  #   , colour_title = "#5380E4"
  #   , colour_text = "black"),
  JS = list(
    family_title="PicoBlackAl"
    , family_text = "[z] Arista Light"
    , colour_title = "#5380E4"
    , colour_text = "#535353")#,
  # X23andme = list(
  #   family_title = "Helvetica Neue Bold"
  #   , family_text = "Helvetica"
  #   , colour_title = "#7BC143"
  #   , colour_text = "#DA1963"
  # )
)) {

  theme_classic() +
    theme(text=element_text(size=18, family=tech_key[[theme]]$family_text)) +
    theme(legend.title=element_blank()) +
    theme(plot.title = element_text(size = 25, colour = tech_key[[theme]]$colour_title, family=tech_key[[theme]]$family_title)) +
    theme(plot.subtitle = element_text(size = 15, colour = tech_key[[theme]]$colour_title, family=tech_key[[theme]]$family_title)) +
    theme(axis.text.x=element_text(color=tech_key[[theme]]$colour_text)) +
    theme(axis.text.y=element_text(color=tech_key[[theme]]$colour_text)) +
    theme(axis.title.x=element_text(color=tech_key[[theme]]$colour_text, vjust=0)) +
    theme(axis.title.y=element_text(color=tech_key[[theme]]$colour_text, vjust=1.25)) +
    theme(plot.background = element_blank(),
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())+
    theme(panel.border= element_blank())+
    theme(axis.line.x = element_line(color=tech_key[[theme]]$colour_text, size = 0.5),
          axis.line.y = element_line(color=tech_key[[theme]]$colour_text, size = 0.5)) +
    theme(line = element_line(color=tech_key[[theme]]$colour_text)) +
    theme(rect = element_rect(color=tech_key[[theme]]$colour_text)) +
    theme(axis.ticks.x = element_line(color=tech_key[[theme]]$colour_text)) +
    theme(axis.ticks.y = element_line(color=tech_key[[theme]]$colour_text))

}