theme.r

library(ggplot2)

linewidth <- 0.25
tagsize <- 8

# lwd_scaling <- 72.27 / 96

figure_theme <- theme_bw() +
    theme(
        panel.border = element_rect(fill = NA, linewidth = linewidth, color = "black"),
        axis.ticks = element_line(linewidth = linewidth, color = "black"),
        axis.ticks.length = unit(2, "points"),
        panel.grid = element_blank(),
        text = element_text(size = 5),
        plot.title = element_text(hjust = 0.5),
        axis.title = element_text(size = 6),
        axis.text = element_text(size = 5, color = "black"),
        legend.text = element_text(size = 5),
        legend.title = element_text(size = 6),
        strip.text = element_text(size = 6),
        strip.background = element_blank(),
        legend.key.size = unit(0.3, "cm"),
        plot.tag = element_text(size = tagsize, face = "bold"),
        plot.background = element_blank()
    )