-
Notifications
You must be signed in to change notification settings - Fork 1
/
aesthetics.R
121 lines (111 loc) · 4.46 KB
/
aesthetics.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
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
# PLOTS----
# Standard theme for manuscript plots
dissertation_plot_theme <- theme(
text = element_text(size = 11),
axis.text.x = element_text(size = 11),
axis.text.y = element_text(size = 10),
axis.ticks = element_blank(),
axis.title = element_text(size = 11),
legend.text = element_text(size = 10),
plot.tag = element_text(size = 12, face = "bold"),
plot.title = element_text(size = 12, face = "bold"),
strip.text = element_text(size = 12, face = "bold")
)
# Titles when combining with patchwork
patchwork_theme <- theme(
plot.title = element_text(face = "bold", size = 12)
)
# Hack to format labels grouped with facet_wrap
grouped_strip_theme <- theme(
strip.background = element_rect(color = NA),
strip.clip = "off",
strip.placement = "outside",
strip.text = element_text(size = 10, margin = margin(0, 0, 0, 0))
)
# Light gray facet labels for 2x2 plots, on both axes (Exp2)
gray_facet_theme <- theme(
axis.line = element_blank(),
axis.text.y = element_text(size = 9),
panel.border = element_rect(fill = NA, color = "black", linewidth = 0.5),
panel.spacing = unit(0.15, "in"),
strip.background = element_rect(fill = "grey90", linewidth = 0.5),
strip.text = element_text(size = 11, face = "plain")
)
# White facet labels for 2x2 plots, at top (Exp3)
white_facet_theme <- theme(
axis.line = element_blank(),
axis.text.y = element_text(size = 9),
panel.border = element_rect(fill = NA, color = "black", linewidth = 0.5),
strip.background = element_rect(fill = "white", linewidth = 0.5),
strip.text = element_text(size = 11, face = "plain")
)
# Survey plots (Exps 3 & 4)
survey_theme <- theme(
text = element_text(size = 11),
axis.text.x = element_text(size = 9),
axis.text.y = element_text(size = 11),
axis.ticks.y = element_blank(),
axis.title = element_text(size = 11),
legend.margin = margin(t = -10),
legend.position = "bottom",
legend.spacing.x = unit(0.05, "in"),
legend.spacing.y = unit(0, "in"),
legend.text = element_text(size = 10, lineheight = 0.7),
legend.title = element_text(size = 10),
plot.tag = element_text(size = 12, face = "bold"),
plot.margin = margin(t = .10, b = .10, l = .05, r = .20, unit = "in"),
plot.title = element_markdown(lineheight = 1.1, size = 11,
face = "bold")
)
# Participant covariate distribution (Exp3)
subj_cov_theme <- list(
scale_x_continuous(expand = c(0.01, 0.01), breaks = c(-0.5, 0, 0.5)),
scale_y_continuous(expand = c(0, 0)),
theme_classic(),
theme(
axis.text = element_text(size = 10),
axis.title = element_text(size = 11),
plot.title = element_text(size = 11, face = "bold")
),
labs(y = element_blank())
)
# Spaghetti plots (Exp4)
eyetracking_theme <- theme(
text = element_text(size = 11),
axis.text = element_text(size = 9),
axis.title = element_text(size = 11),
legend.title = element_text(size = 10),
legend.text = element_text(size = 10),
plot.title = element_text(size = 12, face = "bold"),
strip.text = element_markdown(size = 12, face = "bold")
)
# Match judgments (Exp4)
match_theme <- theme(
axis.line.y = element_blank(),
axis.text = element_text(size = 9),
axis.text.x.top = element_text(margin = margin(b = -15, unit = "pt"),
face = "bold"),
axis.ticks.x = element_blank(),
axis.title = element_text(size = 10),
panel.border = element_rect(fill = NA, linewidth = 1),
plot.margin = margin(t = 0, b = 5, l = 5, r = 0),
plot.title = element_text(size = 11, face = "bold",
margin = margin(t = 5, b = -2)),
strip.text = element_text(size = 11, face = "bold")
)
# TABLES----
# CSS styling for model tables made with tab_model()
table_css <- list(css.randomparts =
"border-top: 1px solid; border-bottom:1px solid; font-style:italic;"
)
# Helper function to drop sigma squared from logistic regression tables
drop_sigma <- function(tb_knitr, title) {
tb_knitr %<>% str_remove(paste(sep = " ",
'<tr>\n<td style=\" padding:0.2cm; text-align:left; vertical-align:top;',
"text-align:left; padding-top:0.1cm;",
'padding-bottom:0.1cm;\">σ<sup>2</sup></td>\n<td style=\"',
"padding:0.2cm; text-align:left; vertical-align:top; padding-top:0.1cm;",
'padding-bottom:0.1cm; text-align:center;\"',
'colspan=\"4\">3.290</td>\n</tr>\n'
))
}