#' Custom ggPlot theme based on theme_bw
#'
#' @param in.font.base
#' @param in.font.axis.text
#' @param in.font.axis.title
#' @param in.font.strip
#' @param in.font.legend
#'
#' @return
#' @export
#'
#' @examples
#'
ggplotTheme = function(in.font.base = 12,
in.font.axis.text = 12,
in.font.axis.title = 12,
in.font.strip = 14,
in.font.legend = 12) {
loc.theme =
theme_bw(base_size = in.font.base, base_family = "Helvetica") +
theme(
panel.spacing = unit(1, "lines"),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
panel.border = element_blank(),
axis.line = element_line(color = "black", size = 0.25),
axis.text = element_text(size = in.font.axis.text),
axis.title = element_text(size = in.font.axis.title),
strip.text = element_text(size = in.font.strip, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.text = element_text(size = in.font.legend),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"))
return(loc.theme)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.