monuments/ggtheme_plot.R at master · lynham/monuments · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#' Plot theme
#'
#' @description Creates a standard theme for all my plots
#'
#' @param base_size
#'
#' @export
#'
ggtheme_plot <- function(base_size = 9) {
  theme(axis.ticks = element_blank(),
        text = element_text(
          #family = "Helvetica",
          color = "gray30",
          size = base_size),
        plot.title = element_text(
          size = rel(1.25),
          hjust = 0,
          face = "bold"),
        panel.background = element_blank(),
        strip.background = element_rect(fill = "transparent"),
        strip.text = element_text(
          size = base_size,
          face = "italic"),
        legend.position = "right",
        panel.border = element_blank(),
        panel.grid.minor = element_blank(),
        panel.grid.major = element_blank(),
        legend.key = element_rect(
          colour = NA,
          fill = NA),
        axis.line = element_blank()
  )}