R/davidson_2019_theme.r

In davan690/beech-publication-wr: Small mammal dynamics in NZ beech forests

#davidson.theme
#maay2019
#publication 1 template theme

# ? theme_set
# theme_get

# This is currently NOT WORKING
# theme mods
# generating new theme
theme_new <- theme_davidson_2019 <- function(base_size = 18,
                      base_family = "Times",
                      base_line_size = base_size / 170,
                      base_rect_size = base_size / 300) {
  theme_bw(
    base_size = base_size,
    base_family = base_family,
    base_line_size = base_line_size
  ) %+replace%
    theme(
      strip.text = element_text(face = "bold", colour = "black"),
      strip.text.y = element_blank(),

      strip.background = element_blank(),

      plot.title = element_text(hjust = 0, color = "black"),
      plot.subtitle = element_text(face = "italic", color = "black"),

      legend.position = "right",
      legend.key = element_blank(),
      legend.background = element_rect(fill = "grey90"),
      legend.key.size = unit(1, "cm"),
      legend.text = element_text(colour = "black",
                                 size = 10),
      legend.title = element_text(colour = "black",
                                  size = 12),
      legend.spacing.x = unit(0.1, 'cm'),
      legend.spacing.y = unit(0.1, 'cm'),
      legend.box.spacing = unit(0, 'cm'),

      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      panel.border = element_blank(),

      axis.title.y = element_text(size = 16,
        colour = "black",
        family = "Times",
        angle = 90,
        vjust = 4
      ),
      axis.title.x = element_text(size = 16, colour = "black",
                                  vjust = -2),

      axis.text.y = element_text(colour = "black", family = "Times"),
      axis.text.x = element_text(colour = "black", family = "Times"),

      axis.ticks.x = element_line(size = 1),
      axis.ticks.y = element_line(size = 1),
      axis.line.x = element_line(size = 1),
      axis.line.y = element_line(size = 1), complete = TRUE)
      # end of ggplot theme

  }## finishin function