pHe-analysis/theme_woodn.R at main · nwoodweb/pHe-analysis · 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
33
34
35
36
37
38
39
40
41
42
# Custom Theming for R Graphics
# Nathan Wood 2025 contact@nwoodweb.xyz
# MIT LICENSE

require(ggplot2)

# GOOD COLORS

theme_woodn <- function(){
    font <- "Heros"
    theme_minimal() %+replace%
    theme(
        panel.grid.major = element_line(colour='#ffffff'),
        panel.grid.minor = element_blank(),
        axis.line = element_line(color = '#000000', linewidth = 1.0),
        axis.ticks = element_blank(),
	plot.title = element_text(
            family = font,
            size = 36,
            face = 'bold'
        ),
        axis.title = element_text(
            family = font,
            size = 24,
            face = 'bold'
        ),
        axis.text = element_text(
            family = font,
            size = 20
        ),
	legend.title = element_text(
		family = font,
		size = 24,
		face = 'bold'
		),
	legend.text = element_text(
		family = font,
		size = 18
		),

    )
}