Theme

Custom figure theme

In [1]:

custom.theme <- function(scaling = 1) {
  ggthemes::theme_pander()
    theme(
    axis.text.x = element_markdown(size = 12 * scaling),
    axis.text.y = element_markdown(size = 12 * scaling),
    axis.title.x = element_markdown(size = 14 * scaling, face = 'bold'),
    axis.title.y = element_markdown(size = 14 * scaling, face = 'bold'),
    axis.line = element_line(linewidth = 0.75 * scaling),
    axis.ticks = element_line(linewidth = 0.75 * scaling, color = 'black'),
    legend.text = element_markdown(size = 12 * scaling),
    legend.title = element_markdown(size = 14 * scaling, face = 'bold'),
    legend.background = element_blank(),
    legend.box.background = element_blank(),
    legend.key = element_blank(),
    strip.text.x = element_markdown(size = 14 * scaling, face = 'bold'),
    strip.text.y = element_markdown(size = 14 * scaling, face = 'bold'),
    strip.background = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank(),
    plot.title = element_markdown(size = 16 * scaling, face = 'bold'),
    plot.subtitle = element_markdown(size = 14 * scaling),
    plot.caption = element_markdown(hjust = 1, size = 10 * scaling)
  )
}