R/homemade.themes.R

In christiantillich/AnaliTools: Simple toolbox of data analysis functions

library(grid)
library(ggthemes)


#' theme_BA()
#' @description Creates my go-to theme for the ggplot in analyses.
#' @return ggplot theme object, based off ggthemes::theme_gdocs()
#' @export
theme_BA <- function(){
  x <- ggthemes::theme_gdocs()
  
  #Controls for the full plot margins
  x$plot.margin = grid::unit(c(0.05,0.05,0.05,0.05), 'npc')
  
  #Controls for the main title text. 
  x$plot.title$size = 25
  x$plot.title$hjust = 0.3
  x$plot.title$vjust = -10
  x$plot.title$margin = grid::unit(c(1,1,1,1), 'npc')
  
  #Controls titles for the x and y axis. 
  x$axis.title.y$angle = 90
  x$axis.title.y$hjust = 0.5
  x$axis.title.y$vjust = 100
  x$axis.title.y$margin = grid::unit(c(0,1.5,0,0), 'npc')
  
  x$axis.title.x$vjust = -1
  x$axis.title.x$margin = grid::unit(c(1,1,1,1), 'npc')
  
  #Controls for the axis tick labels. 
  x$axis.text.x$vjust = 0.5
  x$axis.text.x$angle = 45
  
  #Controls for the legend size. 
  x$legend.key.size = grid::unit(0.8, 'lines')

  return(x)
}

#' qsave
#' @description Just a ggsave wrapper but with presaved settings
#' @param filename - file name/filename of plot
#' @param height - ggsave input. Defaults to 6.
#' @param width - ggsave input. Defaults to 9.
#' @param dpi - ggsave input. Defaults to 600.
#' @export
qsave <- function(filename,height=6, width=9,dpi=600,...) {
  ggsave(filename,height=height, width=width,dpi=dpi,...)
}