/
clean.R
57 lines (57 loc) · 1.89 KB
/
clean.R
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
#' @title Clean ggplot theme
#'
#' @description Clean ggplot theme with no panel background, black axis lines
#' and grey fill colour for chart elements.
#'
#' @author Konrad Zdeb \email{name.surname@@me.com}
#'
#' @param base_size Base font size.
#' @param base_family Base font family.
#'
#' @family themes
#' @export
#'
#' @example inst/examples/ex-theme_clean.R
theme_clean <- function(base_size = 12,
base_family = "sans") {
(
theme_foundation(
base_size = base_size,
base_family = base_family
) + theme(
axis.line.x = element_line(
colour = "black",
size = 0.5,
linetype = "solid"
),
axis.line.y = element_line(
colour = "black",
size = 0.5,
linetype = "solid"
),
axis.text = element_text(size = ceiling(base_size * 0.7), colour = "black"),
axis.title = element_text(size = ceiling(base_size * 0.8)),
panel.grid.minor = element_blank(),
panel.grid.major.y = element_line(colour = "gray", linetype = "dotted"),
panel.grid.major.x = element_blank(),
panel.background = element_blank(),
panel.border = element_blank(),
strip.background = element_rect(linetype = 0),
strip.text = element_text(),
strip.text.x = element_text(vjust = 0.5),
strip.text.y = element_text(angle = -90),
legend.text = element_text(size = ceiling(base_size * 0.9), family = "sans"),
legend.title = element_text(
size = base_size,
face = "bold",
family = "sans"
),
legend.position = "right",
legend.key = element_rect(fill = "white", colour = NA),
legend.background = element_rect(colour = "black"),
plot.background = element_rect(colour = "black"),
plot.title = element_text(size = ceiling(base_size * 1.1), face = "bold"),
plot.subtitle = element_text(size = ceiling(base_size * 1.05))
)
)
}