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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
# ggplot theme elements to be used as needed
# transparent background --------------------------------------------------
transparent <- theme(
panel.background = element_blank(),
plot.background = element_blank()
)
# axes and titles ---------------------------------------------------------
axis_line_color <- "gray20"
axis_color <- theme(
axis.line = element_line(color = axis_line_color)
)
axis_labs <- theme(
axis.title = element_text(face = "bold", size = 13)
)
title_txt <- theme(
plot.title = element_text(face = "bold", size = 14)
)
fat_axis <- theme(
axis.line.x = element_line(size = 3, color = axis_line_color),
axis.line.y = element_line(size = 0.5, color = axis_line_color)
)
no_yaxs <- theme(
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y = element_blank()
)
# facet strips ------------------------------------------------------------
strip_txt <- theme(
strip.text = element_text(size = 12, face = "bold", color = "white"),
strip.background = element_rect(color = axis_line_color, fill = axis_line_color)
)
# horizontal and vertical lines -------------------------------------------
h_lines <- theme(
panel.grid.major = element_line(size = 0.10, linetype = 3, color = "turquoise4"),
panel.grid.major.x = element_blank()
)
v_lines <- theme(
panel.grid.major = element_line(size = 0.25, linetype = 3, color = "turquoise4"),
panel.grid.major.y = element_blank()
)
# legends -----------------------------------------------------------------
no_lgnd <- theme(
legend.position = "none"
)
lgnd_bot <- theme(
legend.position = "bottom",
legend.background = element_blank()
)
lgnd_top <- theme(
legend.position = "top",
legend.background = element_blank()
)
lgnd_left <- theme(
legend.position = "left",
legend.background = element_blank()
)
lgnd_right <- theme(
legend.position = "right",
legend.background = element_blank()
)
# colors and shapes -------------------------------------------------------
base_fill <- "#66a7e0"
overlay_fill <- "#006dcc"
vline_base_clr <- "#006dcc"
pt_outline_clr <- "#328ad6"
divergent_fill <- "#ae0001"
hit_max_td_fill <- "#eeba30"
divergent_clr <- "black"
hit_max_td_clr <- "black"
div_and_hit_shape <- 21
blue_color <- "#006dcc"
|
