Skip to content

Commit 1cb9a1e

Browse files
ernestguevarraernestguevarra
committed
shift forestplot text to Roboto
1 parent fe6fff2 commit 1cb9a1e

File tree

3 files changed

+46
-46
lines changed

3 files changed

+46
-46
lines changed

‎R/oxford_theme_forest.R

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@
1919
#' @param summary_fill Colour for filling the summary diamond shape. Default set
2020
#' to value of `summary_col`.
2121
#' @param footnote_cex Multiplier applied to font size for footnote.
22-
#' @param footnote_fontface The font face for footnote.
22+
#' @param footnote_fontface The font face for footnote. Default to *plain*.
2323
#' @param footnote_col Colour of the footnote. Default set to
2424
#' *Oxford royal blue*.
2525
#' @param title_col Colour of title. Default set to *Oxford blue*
@@ -86,7 +86,7 @@ theme_oxford_forest <- function(base_size = 11.5,
8686
#'
8787

8888
theme_heritage_forest <- function(base_size = 11,
89-
base_family = "Marcellus",
89+
base_family = "Roboto",
9090
bg_col = get_oxford_colour("sage"),
9191
ci_col = get_oxford_colour("Oxford blue"),
9292
ci_fill = ci_col,
@@ -98,7 +98,7 @@ theme_heritage_forest <- function(base_size = 11,
9898
footnote_fontface = "plain",
9999
footnote_col = get_oxford_colour("green"),
100100
title_col = get_oxford_colour("Oxford blue"),
101-
title_fontfamily = base_family,
101+
title_fontfamily = "Marcellus",
102102
arrow_fill = get_oxford_colour("Oxford blue"),
103103
arrow_col = arrow_fill) {
104104
forestploter::forest_theme(
@@ -131,7 +131,7 @@ theme_heritage_forest <- function(base_size = 11,
131131
#'
132132

133133
theme_contemporary_forest <- function(base_size = 10.5,
134-
base_family = "Montserrat",
134+
base_family = "Roboto",
135135
bg_col = get_oxford_colour("cool"),
136136
ci_col = get_oxford_colour("Oxford blue"),
137137
ci_fill = ci_col,
@@ -143,7 +143,7 @@ theme_contemporary_forest <- function(base_size = 10.5,
143143
footnote_fontface = "plain",
144144
footnote_col = get_oxford_colour("aqua"),
145145
title_col = get_oxford_colour("Oxford blue"),
146-
title_fontfamily = base_family,
146+
title_fontfamily = "Montserrat",
147147
arrow_fill = get_oxford_colour("Oxford blue"),
148148
arrow_col = arrow_fill) {
149149
forestploter::forest_theme(
@@ -176,7 +176,7 @@ theme_contemporary_forest <- function(base_size = 10.5,
176176
#'
177177

178178
theme_celebratory_forest <- function(base_size = 10.5,
179-
base_family = "Noto Serif Display",
179+
base_family = "Roboto",
180180
bg_col = get_oxford_colour("lavender"),
181181
ci_col = get_oxford_colour("Oxford blue"),
182182
ci_fill = ci_col,
@@ -188,7 +188,7 @@ theme_celebratory_forest <- function(base_size = 10.5,
188188
footnote_fontface = "plain",
189189
footnote_col = get_oxford_colour("viridian"),
190190
title_col = get_oxford_colour("Oxford blue"),
191-
title_fontfamily = base_family,
191+
title_fontfamily = "Noto Serif Display",
192192
arrow_fill = get_oxford_colour("Oxford blue"),
193193
arrow_col = arrow_fill) {
194194
forestploter::forest_theme(
@@ -221,7 +221,7 @@ theme_celebratory_forest <- function(base_size = 10.5,
221221
#'
222222

223223
theme_corporate_forest <- function(base_size = 10.5,
224-
base_family = "Bebas Neue",
224+
base_family = "Roboto",
225225
bg_col = get_oxford_colour("sky"),
226226
ci_col = get_oxford_colour("Oxford blue"),
227227
ci_fill = ci_col,
@@ -233,7 +233,7 @@ theme_corporate_forest <- function(base_size = 10.5,
233233
footnote_fontface = "plain",
234234
footnote_col = get_oxford_colour("royal"),
235235
title_col = get_oxford_colour("Oxford blue"),
236-
title_fontfamily = base_family,
236+
title_fontfamily = "Bebas Neue",
237237
arrow_fill = get_oxford_colour("Oxford blue"),
238238
arrow_col = arrow_fill) {
239239
forestploter::forest_theme(
@@ -266,7 +266,7 @@ theme_corporate_forest <- function(base_size = 10.5,
266266
#'
267267

268268
theme_innovative_forest <- function(base_size = 10.5,
269-
base_family = "Phudu",
269+
base_family = "Roboto",
270270
bg_col = get_oxford_colour("lavender"),
271271
ci_col = get_oxford_colour("Oxford blue"),
272272
ci_fill = ci_col,
@@ -278,7 +278,7 @@ theme_innovative_forest <- function(base_size = 10.5,
278278
footnote_fontface = "plain",
279279
footnote_col = get_oxford_colour("viridian"),
280280
title_col = get_oxford_colour("Oxford blue"),
281-
title_fontfamily = base_family,
281+
title_fontfamily = "Phudu",
282282
arrow_fill = get_oxford_colour("Oxford blue"),
283283
arrow_col = arrow_fill) {
284284
forestploter::forest_theme(

‎man/theme_forest.Rd

Lines changed: 11 additions & 11 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎vignettes/oxford-forestploter-themes.Rmd

Lines changed: 24 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -79,8 +79,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
7979
arrow_lab = c("Placebo Better", "Treatment Better"),
8080
xlim = c(0, 4),
8181
ticks_at = c(0.5, 1, 2, 3),
82-
title = "This title is in Roboto plain font in Oxford blue",
83-
footnote = "Footnote is in Roboto plain font\nin Oxford royal blue",
82+
title = "Title in Roboto plain font in Oxford blue",
83+
footnote = "Footnote in Roboto plain font\nin Oxford royal blue",
8484
theme = theme_oxford_forest())
8585
8686
## Print plot
@@ -103,8 +103,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
103103
arrow_lab = c("Placebo Better", "Treatment Better"),
104104
xlim = c(0, 4),
105105
ticks_at = c(0.5, 1, 2, 3),
106-
title = "This title is in Roboto plain font in Oxford blue",
107-
footnote = "Footnote is in Roboto plain font\nin Oxford royal blue",
106+
title = "Title in Roboto plain font in Oxford blue",
107+
footnote = "Footnote in Roboto plain font\nin Oxford royal blue",
108108
theme = theme_oxford_forest())
109109
110110
# Print plot
@@ -129,8 +129,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
129129
arrow_lab = c("Placebo Better", "Treatment Better"),
130130
xlim = c(0, 4),
131131
ticks_at = c(0.5, 1, 2, 3),
132-
title = "Title is in Marcellus plain font in Oxford blue",
133-
footnote = "Footnote is in Marcellus plain font\nin Oxford green",
132+
title = "Title in Marcellus plain font in Oxford blue",
133+
footnote = "Footnote in Roboto plain font\nin Oxford green",
134134
theme = theme_heritage_forest())
135135
136136
## Print plot
@@ -152,8 +152,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
152152
arrow_lab = c("Placebo Better", "Treatment Better"),
153153
xlim = c(0, 4),
154154
ticks_at = c(0.5, 1, 2, 3),
155-
title = "Title is in Marcellus plain font in Oxford blue",
156-
footnote = "Footnote is in Marcellus plain font\nin Oxford green",
155+
title = "Title in Marcellus plain font in Oxford blue",
156+
footnote = "Footnote in Roboto plain font\nin Oxford green",
157157
theme = theme_heritage_forest())
158158
159159
# Print plot
@@ -179,8 +179,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
179179
arrow_lab = c("Placebo Better", "Treatment Better"),
180180
xlim = c(0, 4),
181181
ticks_at = c(0.5, 1, 2, 3),
182-
title = "Title is in Montserrat plain font in Oxford blue",
183-
footnote = "Footnote is in Montserrat plain font\nin Oxford aqua",
182+
title = "Title in Montserrat plain font in Oxford blue",
183+
footnote = "Footnote in Roboto plain font\nin Oxford aqua",
184184
theme = theme_contemporary_forest())
185185
186186
## Print plot
@@ -202,8 +202,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
202202
arrow_lab = c("Placebo Better", "Treatment Better"),
203203
xlim = c(0, 4),
204204
ticks_at = c(0.5, 1, 2, 3),
205-
title = "Title is in Montserrat plain font in Oxford blue",
206-
footnote = "Footnote is in Montserrat plain font\nin Oxford aqua",
205+
title = "Title in Montserrat plain font in Oxford blue",
206+
footnote = "Footnote in Roboto plain font\nin Oxford aqua",
207207
theme = theme_contemporary_forest())
208208
209209
# Print plot
@@ -229,8 +229,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
229229
arrow_lab = c("Placebo Better", "Treatment Better"),
230230
xlim = c(0, 4),
231231
ticks_at = c(0.5, 1, 2, 3),
232-
title = "Title is in Noto Serif Display plain font in Oxford blue",
233-
footnote = "Footnote is in Noto Serif Display plain font\nin Oxford viridian",
232+
title = "Title in Noto Serif Display plain font in Oxford blue",
233+
footnote = "Footnote in Roboto plain font\nin Oxford viridian",
234234
theme = theme_celebratory_forest())
235235
236236
## Print plot
@@ -255,8 +255,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
255255
arrow_lab = c("Placebo Better", "Treatment Better"),
256256
xlim = c(0, 4),
257257
ticks_at = c(0.5, 1, 2, 3),
258-
title = "Title is in Noto Serif Display plain font in Oxford blue",
259-
footnote = "Footnote is in Noto Serif Display plain font\nin Oxford viridian",
258+
title = "Title in Noto Serif Display plain font in Oxford blue",
259+
footnote = "Footnote in Roboto plain font\nin Oxford viridian",
260260
theme = theme_celebratory_forest())
261261
262262
# Print plot
@@ -282,8 +282,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
282282
arrow_lab = c("Placebo Better", "Treatment Better"),
283283
xlim = c(0, 4),
284284
ticks_at = c(0.5, 1, 2, 3),
285-
title = "Title is in Bebas Neue plain font in Oxford blue",
286-
footnote = "Footnote is in Bebas Neue plain font\nin Oxford royal blue",
285+
title = "Title in Bebas Neue plain font in Oxford blue",
286+
footnote = "Footnote in Roboto plain font\nin Oxford royal blue",
287287
theme = theme_corporate_forest())
288288
289289
## Print plot
@@ -308,8 +308,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
308308
arrow_lab = c("Placebo Better", "Treatment Better"),
309309
xlim = c(0, 4),
310310
ticks_at = c(0.5, 1, 2, 3),
311-
title = "Title is in Bebas Neue plain font in Oxford blue",
312-
footnote = "Footnote is in Bebas Neue plain font\nin Oxford royal blue",
311+
title = "Title in Bebas Neue plain font in Oxford blue",
312+
footnote = "Footnote in Roboto plain font\nin Oxford royal blue",
313313
theme = theme_corporate_forest())
314314
315315
# Print plot
@@ -335,8 +335,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
335335
arrow_lab = c("Placebo Better", "Treatment Better"),
336336
xlim = c(0, 4),
337337
ticks_at = c(0.5, 1, 2, 3),
338-
title = "Title is in Phudu plain font in Oxford blue",
339-
footnote = "Footnote is in Phudu plain font\nin Oxford viridian",
338+
title = "Title in Phudu plain font in Oxford blue",
339+
footnote = "Footnote in Roboto plain font\nin Oxford viridian",
340340
theme = theme_innovative_forest())
341341
342342
## Print plot
@@ -361,8 +361,8 @@ p <- forest(dt[ , c(1:3, 20:21)],
361361
arrow_lab = c("Placebo Better", "Treatment Better"),
362362
xlim = c(0, 4),
363363
ticks_at = c(0.5, 1, 2, 3),
364-
title = "Title is in Phudu plain font in Oxford blue",
365-
footnote = "Footnote is in Phudu plain font\nin Oxford viridian",
364+
title = "Title in Phudu plain font in Oxford blue",
365+
footnote = "Footnote in Roboto plain font\nin Oxford viridian",
366366
theme = theme_innovative_forest())
367367
368368
# Print plot

0 commit comments

Comments
 (0)