Nothing
#' Mode theme base
#'
#' @description Theme base for `*_mode_*` functions.
#'
#' @param base_size The base size of the text theme element. Defaults to 11.
#' @param base_family The base family of the text theme element. Defaults to "".
#' @param base_colour The base colour of the text theme element.
#' @param base_face The base face of the text theme element. Defaults to "plain".
#' @param plot_title_size The size of the plot.title theme element.
#' @param plot_title_family The family of the plot.title theme element.
#' @param plot_title_colour The colour of the plot.title theme element.
#' @param plot_title_face The face of the plot.title theme element.
#' @param plot_subtitle_size The size of the plot.subtitle theme element.
#' @param plot_subtitle_family The family of the plot.subtitle theme element.
#' @param plot_subtitle_colour The colour of the plot.subtitle theme element.
#' @param plot_subtitle_face The face of the plot.subtitle theme element.
#' @param plot_caption_size The size of the plot.caption theme element.
#' @param plot_caption_family The family of the plot.caption theme element.
#' @param plot_caption_colour The colour of the plot.caption theme element.
#' @param plot_caption_face The face of the plot.caption theme element.
#' @param plot_caption_hjust The horizontal adjustment of the plot.caption theme element.
#' @param axis_line_colour The colour of the axis.line theme element.
#' @param axis_line_linewidth The linewidth of the axis.line theme element.
#' @param axis_ticks_colour The colour of the axis.ticks theme element.
#' @param axis_ticks_linewidth The linewidth of the axis.ticks theme element.
#' @param axis.ticks.length The length of the axis.ticks.length.x theme element.
#' @param panel_grid_colour The colour of the panel.grid theme element.
#' @param panel_grid_linewidth The linewidth of the panel.grid theme element.
#' @param panel_background_fill The fill (and colour) of the panel.background theme element.
#' @param plot_background_fill The fill (and colour) of the plot.background theme element.
#' @param legend_axis_line_colour The colour of the legend.axis.line theme element.
#' @param legend_axis_line_linewidth The linewidth of the legend.axis.line theme element.
#' @param legend_background_fill The fill (and colour) of the legend.background theme element.
#' @param legend_key_fill The fill (and colour) of the legend.key theme element.
#' @param legend_ticks_colour The colour of the legend.ticks theme element.
#' @param legend_ticks_linewidth The linewidth of the legend.ticks theme element.
#' @param legend_ticks_length The legend.ticks.length theme element.
#'
#' @return A ggplot theme.
#' @keywords internal
#'
flex_mode_base <- function(
base_size = 11,
base_family = "",
base_colour = "#121B24FF",
base_face = "plain",
plot_title_size = ggplot2::rel(1.1),
plot_title_family = base_family,
plot_title_colour = base_colour,
plot_title_face = "bold",
plot_subtitle_size = ggplot2::rel(1),
plot_subtitle_family = base_family,
plot_subtitle_colour = base_colour,
plot_subtitle_face = "plain",
plot_caption_size = ggplot2::rel(0.85),
plot_caption_family = base_family,
plot_caption_colour = colorspace::lighten(base_colour, 0.1),
plot_caption_face = "plain",
plot_caption_hjust = 0,
axis_line_colour = "#121B24FF",
axis_line_linewidth = 0.33,
axis_ticks_colour = axis_line_colour,
axis_ticks_linewidth = axis_line_linewidth,
axis.ticks.length = grid::unit(base_size / 3, "pt"),
panel_grid_colour = "#F6F8FAFF",
panel_grid_linewidth = 1.33,
panel_background_fill ="#FFFFFFFF",
plot_background_fill = "#FFFFFFFF",
legend_axis_line_colour = plot_background_fill,
legend_axis_line_linewidth = 0.33,
legend_background_fill = plot_background_fill,
legend_key_fill = plot_background_fill,
legend_ticks_colour = legend_axis_line_colour,
legend_ticks_linewidth = legend_axis_line_linewidth,
legend_ticks_length = ggplot2::rel(c(0.175, 0))
) {
theme <- ggplot2::theme(
text = ggplot2::element_text(size = base_size, family = base_family, face = "plain", colour = base_colour,
lineheight = 0.9, hjust = 0.5, vjust = 0.5, angle = 0, margin = ggplot2::margin(), debug = FALSE),
axis.line = ggplot2::element_line(colour = axis_line_colour, linewidth = axis_line_linewidth, lineend = "square"),
axis.line.x = NULL,
axis.line.x.bottom = NULL,
axis.line.x.top = NULL,
axis.line.y = NULL,
axis.line.y.left = NULL,
axis.line.y.right = NULL,
axis.ticks = ggplot2::element_line(colour = axis_ticks_colour, linewidth = axis_ticks_linewidth),
axis.ticks.x = NULL,
axis.ticks.x.top = NULL,
axis.ticks.x.bottom = NULL,
axis.ticks.y = NULL,
axis.ticks.y.left = NULL,
axis.ticks.y.right = NULL,
axis.ticks.length = grid::unit(2.5 + (axis_line_linewidth * 2.5), "pt"),
axis.ticks.length.x = NULL,
axis.ticks.length.x.top = NULL,
axis.ticks.length.x.bottom = NULL,
axis.ticks.length.y = NULL,
axis.ticks.length.y.left = NULL,
axis.ticks.length.y.right = NULL,
axis.title = ggplot2::element_text(size = base_size, colour = base_colour),
axis.title.x = ggplot2::element_text(margin = ggplot2::margin(t = base_size * -0.33, r = 0, b = base_size * 0.75, l = 0)),
axis.title.x.top = ggplot2::element_text(margin = ggplot2::margin(t = base_size * -1, r = 0, b = base_size * 1, l = 0)),
axis.title.y = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = base_size * 1, b = 0, l = 0), angle = 90),
axis.title.y.right = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = base_size * -0.5, b = 0, l = base_size * 1), angle = -90),
axis.text = ggplot2::element_text(size = base_size, colour = base_colour),
axis.text.y = ggplot2::element_text(margin = ggplot2::margin(r = base_size * 0.25), hjust = 1),
axis.text.y.right = ggplot2::element_text(margin = ggplot2::margin(l = base_size * 0.25), hjust = 0),
axis.text.x = ggplot2::element_text(vjust = 1, margin = ggplot2::margin(t = base_size * 0.3, r = 0, b = base_size * 1, l = 0)),
axis.text.x.top = ggplot2::element_text(vjust = 0, margin = ggplot2::margin(t = base_size * -0.5, r = 0, b = base_size * 0.3, l = 0)),
legend.margin = ggplot2::margin(t = 0, r = base_size * -1, b = base_size * 0.75, l = base_size * 0.75),
legend.spacing = grid::unit(base_size * 1, "pt"),
legend.spacing.y = grid::unit(base_size * 1.5, "pt"),
legend.spacing.x = NULL,
legend.key = ggplot2::element_rect(colour = legend_key_fill, fill = legend_key_fill),
legend.key.size = grid::unit(base_size * 1.75, "pt"),
legend.key.height = NULL,
legend.key.width = NULL,
legend.key.spacing = NULL,
legend.key.spacing.x = grid::unit(base_size, "pt"),
legend.key.spacing.y = grid::unit(base_size * 0.33, "pt"),
legend.byrow = FALSE,
legend.frame = NULL,
legend.text = ggplot2::element_text(size = base_size, colour = base_colour, margin = ggplot2::margin(5.5, 5.5, 5.5, 5.5)),
legend.axis.line = ggplot2::element_line(colour = legend_axis_line_colour, linewidth = legend_axis_line_linewidth),
legend.ticks = ggplot2::element_line(colour = legend_ticks_colour, linewidth = legend_ticks_linewidth),
legend.ticks.length = legend_ticks_length,
legend.title.position = "top",
legend.box = "vertical",
legend.box.background = NULL,
legend.box.spacing = NULL,
legend.box.just = "left",
legend.background = ggplot2::element_rect(colour = legend_background_fill, fill = legend_background_fill),
panel.background = ggplot2::element_rect(colour = panel_background_fill, fill = panel_background_fill),
panel.border = ggplot2::element_blank(),
panel.grid = ggplot2::element_line(colour = panel_grid_colour, linewidth = panel_grid_linewidth),
panel.grid.major = NULL,
panel.grid.major.x = NULL,
panel.grid.major.y = NULL,
panel.grid.minor = ggplot2::element_blank(),
panel.grid.minor.x = NULL,
panel.grid.minor.y = NULL,
panel.spacing = grid::unit(base_size * 2, "pt"),
panel.spacing.x = NULL,
panel.spacing.y = NULL,
panel.ontop = FALSE,
strip.background = ggplot2::element_rect(fill = NA, colour = NA),
strip.clip = "off",
strip.text = ggplot2::element_text(size = base_size, colour = base_colour, margin = ggplot2::margin(t = 0, r = 0, b = base_size * 0.66, l = 0)),
strip.text.x = NULL,
strip.text.x.bottom = ggplot2::element_text(margin = ggplot2::margin(t = base_size * 0.25, r = 0, b = base_size * 1, l = 0)),
strip.text.y = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = 0, b = 0, l = base_size * 2/3), angle = -90),
strip.text.y.left = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = base_size * 2/3, b = 0, l = 0), angle = 90),
strip.placement = "outside",
strip.placement.x = NULL,
strip.placement.y = NULL,
strip.switch.pad.grid = grid::unit(0.15, "pt"),
strip.switch.pad.wrap = grid::unit(0.15, "pt"),
plot.background = ggplot2::element_rect(colour = plot_background_fill, fill = plot_background_fill),
plot.title = ggplot2::element_text(size = plot_title_size, family = plot_title_family, face = plot_title_face, colour = plot_title_colour,
hjust = 0, margin = ggplot2::margin(t = base_size * -1, r = 0, b = base_size * 2.5, l = 0)),
plot.title.position = "plot",
plot.subtitle = ggplot2::element_text(size = plot_subtitle_size, family = plot_subtitle_family, face = plot_subtitle_face, colour = plot_subtitle_colour,
hjust = 0, margin = ggplot2::margin(t = base_size * -2, r = 0, b = base_size * 2, l = 0)),
plot.caption = ggplot2::element_text(size = plot_caption_size, family = plot_caption_family, face = plot_caption_face, colour = plot_caption_colour, hjust = plot_caption_hjust,
margin = ggplot2::margin(t = base_size * 0.5, r = 0, b = base_size * 0.5, l = 0)),
plot.caption.position = "plot",
plot.tag = ggplot2::element_text(size = ggplot2::rel(1.2), hjust = 0, vjust = 0.5),
plot.tag.position = "topleft",
plot.margin = ggplot2::margin(t = base_size * 2, r = base_size * 2, b = base_size * 0.33, l = base_size * 1),
legend.position = "right",
legend.direction = "vertical",
legend.justification = c(0, 1),
legend.location = "panel",
legend.box.margin = ggplot2::margin(t = 0, r = 0, b = 0, l = 0),
legend.title = ggplot2::element_text(size = base_size, colour = base_colour, margin = ggplot2::margin(t = 0, r = 0, b = base_size * 0.5, l = 0)),
complete = FALSE
)
return(theme)
}
#' Flexible mode with right legend
#'
#' @description Flexible mode with right legend.
#'
#' @inheritParams flex_mode_base
#' @param ... Provided to force user argument naming etc.
#'
#' @return A ggplot theme.
#' @keywords internal
#'
flex_mode_r <- function (
...,
base_size = 11,
base_family = "",
base_face = "plain",
base_colour = "#121B24FF",
plot_title_size = ggplot2::rel(1.1),
plot_title_family = base_family,
plot_title_face = "bold",
plot_title_colour = base_colour,
plot_subtitle_size = ggplot2::rel(1),
plot_subtitle_family = base_family,
plot_subtitle_face = "plain",
plot_subtitle_colour = base_colour,
plot_caption_size = ggplot2::rel(0.85),
plot_caption_family = base_family,
plot_caption_face = "plain",
plot_caption_colour = colorspace::lighten(base_colour, 0.1),
plot_caption_hjust = 0,
axis_line_colour = "#121B24FF",
axis_line_linewidth = 0.33,
axis_ticks_colour = axis_line_colour,
axis_ticks_linewidth = axis_line_linewidth,
axis.ticks.length = grid::unit(base_size / 3, "pt"),
panel_grid_colour = "#F6F8FAFF",
panel_grid_linewidth = 1.33,
panel_background_fill ="#FFFFFFFF",
plot_background_fill = "#FFFFFFFF",
legend_axis_line_colour = plot_background_fill,
legend_axis_line_linewidth = 0.33,
legend_background_fill = plot_background_fill,
legend_key_fill = plot_background_fill,
legend_ticks_colour = legend_axis_line_colour,
legend_ticks_linewidth = legend_axis_line_linewidth,
legend_ticks_length = ggplot2::rel(c(0.175, 0))
) {
flex_mode_base(
base_size = base_size,
base_family = base_family,
base_face = "plain",
base_colour = base_colour,
plot_title_size = plot_title_size,
plot_title_family = plot_title_family,
plot_title_face = plot_title_face,
plot_title_colour = plot_title_colour,
plot_subtitle_size = plot_subtitle_size,
plot_subtitle_family = plot_subtitle_family,
plot_subtitle_face = plot_subtitle_face,
plot_subtitle_colour = plot_subtitle_colour,
plot_caption_size = plot_caption_size,
plot_caption_family = plot_caption_family,
plot_caption_face = plot_caption_face,
plot_caption_colour = plot_caption_colour,
plot_caption_hjust = plot_caption_hjust,
axis_line_colour = axis_line_colour,
axis_line_linewidth = axis_line_linewidth,
axis_ticks_colour = axis_ticks_colour,
axis_ticks_linewidth = axis_ticks_linewidth,
axis.ticks.length = axis.ticks.length,
panel_grid_colour = panel_grid_colour,
panel_grid_linewidth = panel_grid_linewidth,
panel_background_fill = panel_background_fill,
plot_background_fill = plot_background_fill,
legend_axis_line_colour = legend_axis_line_colour,
legend_axis_line_linewidth = legend_axis_line_linewidth,
legend_background_fill = legend_background_fill,
legend_key_fill = legend_key_fill,
legend_ticks_colour = legend_ticks_colour,
legend_ticks_linewidth = legend_ticks_linewidth,
legend_ticks_length = legend_ticks_length
)
}
#' Flexible mode with top legend
#'
#' @description Flexible mode with legend at top.
#'
#' @inheritParams flex_mode_r
#'
#' @return A ggplot theme.
#' @keywords internal
#'
flex_mode_t <- function (
...,
base_size = 11,
base_family = "",
base_face = "plain",
base_colour = "#121B24FF",
plot_title_size = ggplot2::rel(1.1),
plot_title_family = base_family,
plot_title_face = "bold",
plot_title_colour = base_colour,
plot_subtitle_size = ggplot2::rel(1),
plot_subtitle_family = base_family,
plot_subtitle_face = "plain",
plot_subtitle_colour = base_colour,
plot_caption_size = ggplot2::rel(0.85),
plot_caption_family = base_family,
plot_caption_face = "plain",
plot_caption_colour = colorspace::lighten(base_colour, 0.1),
plot_caption_hjust = 0,
axis_line_colour = "#121B24FF",
axis_line_linewidth = 0.33,
axis_ticks_colour = axis_line_colour,
axis_ticks_linewidth = axis_line_linewidth,
axis.ticks.length = grid::unit(base_size / 3, "pt"),
panel_grid_colour = "#F6F8FAFF",
panel_grid_linewidth = 1.33,
panel_background_fill ="#FFFFFFFF",
plot_background_fill = "#FFFFFFFF",
legend_axis_line_colour = plot_background_fill,
legend_axis_line_linewidth = 0.33,
legend_background_fill = plot_background_fill,
legend_key_fill = plot_background_fill,
legend_ticks_colour = legend_axis_line_colour,
legend_ticks_linewidth = legend_axis_line_linewidth,
legend_ticks_length = ggplot2::rel(c(0.175, 0))
) {
flex_mode_base(
base_size = base_size,
base_family = base_family,
base_face = "plain",
base_colour = base_colour,
plot_title_size = plot_title_size,
plot_title_family = plot_title_family,
plot_title_face = plot_title_face,
plot_title_colour = plot_title_colour,
plot_subtitle_size = plot_subtitle_size,
plot_subtitle_family = plot_subtitle_family,
plot_subtitle_face = plot_subtitle_face,
plot_subtitle_colour = plot_subtitle_colour,
plot_caption_size = plot_caption_size,
plot_caption_family = plot_caption_family,
plot_caption_face = plot_caption_face,
plot_caption_colour = plot_caption_colour,
plot_caption_hjust = plot_caption_hjust,
axis_line_colour = axis_line_colour,
axis_line_linewidth = axis_line_linewidth,
axis_ticks_colour = axis_ticks_colour,
axis_ticks_linewidth = axis_ticks_linewidth,
axis.ticks.length = axis.ticks.length,
panel_grid_colour = panel_grid_colour,
panel_grid_linewidth = panel_grid_linewidth,
panel_background_fill = panel_background_fill,
plot_background_fill = plot_background_fill,
legend_axis_line_colour = legend_axis_line_colour,
legend_axis_line_linewidth = legend_axis_line_linewidth,
legend_background_fill = legend_background_fill,
legend_key_fill = legend_key_fill,
legend_ticks_colour = legend_ticks_colour,
legend_ticks_linewidth = legend_ticks_linewidth,
legend_ticks_length = legend_ticks_length
) +
ggplot2::theme(
legend.position = "top",
legend.direction = "horizontal",
legend.justification = c(0, 0.5),
legend.location = "plot",
legend.margin = ggplot2::margin(t = base_size * -1.5, r = base_size * 2, b = base_size * 0.5, l = 0),
legend.box.margin = ggplot2::margin(t = base_size * 0.5, r = 0, b = base_size * 0.5, l = 0),
legend.title = ggplot2::element_text(margin = ggplot2::margin(t = base_size * 0.25, r = 0, b = base_size * 0.5, l = 0)),
legend.byrow = TRUE,
axis.title.x = ggplot2::element_text(margin = ggplot2::margin(t = base_size * -0.33, r = 0, b = base_size * 0.75, l = 0)),
axis.title.x.top = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = 0, b = base_size * 0.5, l = 0)),
axis.text.x.top = ggplot2::element_text(vjust = 0, margin = ggplot2::margin(t = base_size * 0, r = 0, b = base_size * 0.3, l = 0)),
axis.title.y.right = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = base_size * -0.5, b = 0, l = base_size * 1), angle = -90)
)
}
#' Flexible mode with bottom legend
#'
#' @description Flexible mode with legend at bottom.
#'
#' @inheritParams flex_mode_r
#'
#' @return A ggplot theme.
#' @keywords internal
#'
flex_mode_b <- function (
...,
base_size = 11,
base_family = "",
base_face = "plain",
base_colour = "#121B24FF",
plot_title_size = ggplot2::rel(1.1),
plot_title_family = base_family,
plot_title_face = "bold",
plot_title_colour = base_colour,
plot_subtitle_size = ggplot2::rel(1),
plot_subtitle_family = base_family,
plot_subtitle_face = "plain",
plot_subtitle_colour = base_colour,
plot_caption_size = ggplot2::rel(0.85),
plot_caption_family = base_family,
plot_caption_face = "plain",
plot_caption_colour = colorspace::lighten(base_colour, 0.1),
plot_caption_hjust = 0,
axis_line_colour = "#121B24FF",
axis_line_linewidth = 0.33,
axis_ticks_colour = axis_line_colour,
axis_ticks_linewidth = axis_line_linewidth,
axis.ticks.length = grid::unit(base_size / 3, "pt"),
panel_grid_colour = "#F6F8FAFF",
panel_grid_linewidth = 1.33,
panel_background_fill ="#FFFFFFFF",
plot_background_fill = "#FFFFFFFF",
legend_axis_line_colour = plot_background_fill,
legend_axis_line_linewidth = 0.33,
legend_background_fill = plot_background_fill,
legend_key_fill = plot_background_fill,
legend_ticks_colour = legend_axis_line_colour,
legend_ticks_linewidth = legend_axis_line_linewidth,
legend_ticks_length = ggplot2::rel(c(0.175, 0))
) {
flex_mode_base(
base_size = base_size,
base_family = base_family,
base_face = "plain",
base_colour = base_colour,
plot_title_size = plot_title_size,
plot_title_family = plot_title_family,
plot_title_face = plot_title_face,
plot_title_colour = plot_title_colour,
plot_subtitle_size = plot_subtitle_size,
plot_subtitle_family = plot_subtitle_family,
plot_subtitle_face = plot_subtitle_face,
plot_subtitle_colour = plot_subtitle_colour,
plot_caption_size = plot_caption_size,
plot_caption_family = plot_caption_family,
plot_caption_face = plot_caption_face,
plot_caption_colour = plot_caption_colour,
plot_caption_hjust = plot_caption_hjust,
axis_line_colour = axis_line_colour,
axis_line_linewidth = axis_line_linewidth,
axis_ticks_colour = axis_ticks_colour,
axis_ticks_linewidth = axis_ticks_linewidth,
axis.ticks.length = axis.ticks.length,
panel_grid_colour = panel_grid_colour,
panel_grid_linewidth = panel_grid_linewidth,
panel_background_fill = panel_background_fill,
plot_background_fill = plot_background_fill,
legend_axis_line_colour = legend_axis_line_colour,
legend_axis_line_linewidth = legend_axis_line_linewidth,
legend_background_fill = legend_background_fill,
legend_key_fill = legend_key_fill,
legend_ticks_colour = legend_ticks_colour,
legend_ticks_linewidth = legend_ticks_linewidth,
legend_ticks_length = legend_ticks_length
) +
ggplot2::theme(
legend.position = "bottom",
legend.direction = "horizontal",
legend.justification = c(0, 0.5),
legend.location = "plot",
legend.margin = ggplot2::margin(t = 0, r = base_size * 2, b = base_size * 0.75, l = 0),
legend.box.margin = ggplot2::margin(t = base_size * -0.5, r = 0, b = 0, l = 0),
legend.title = ggplot2::element_text(margin = ggplot2::margin(t = base_size * 0.25, r = 0, b = base_size * 0.5, l = 0)),
legend.byrow = TRUE,
axis.text.x = ggplot2::element_text(vjust = 1, margin = ggplot2::margin(t = base_size * 0.3, r = 0, b = base_size * 1, l = 0)),
axis.text.x.top = ggplot2::element_text(vjust = 0, margin = ggplot2::margin(t = base_size * -0.5, r = 0, b = base_size * 0.3, l = 0))
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.