#' theme_HFHS
#'
#' theme_HFHS provides a theme that the author uses in plots at Henry Ford Health System
#'
#' @return a ggplot::theme()
#' @export
#'
#' @examples
#' #Needs an example
theme_HFHS <- function() {
ggthemes::theme_hc() +
theme(axis.line = element_line(linetype = "solid"),
panel.grid.major = element_line(colour = "gray78"),
plot.title = element_text(size = 14, face = "bold"),
legend.title = element_text(size = 8, face = "italic"),
panel.background = element_rect(fill = NA),
legend.key = element_rect(fill = NA),
legend.background = element_rect(fill = NA),
legend.position = "bottom",
legend.direction = "horizontal",
legend.text = element_text(size = 8))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.