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,...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.