Nothing
#' Complete theme
#'
#' A ggplot theme which can be applied to all graphs to appear according to 2DII
#' plotting aesthetics.
#'
#' @inheritParams ggplot2::theme_classic
#'
#' @family plotting functions
#'
#' @return An object of class "theme", "gg".
#'
#' @seealso [ggplot2::theme_classic].
#'
#' @export
#' @examples
#' library(ggplot2, warn.conflicts = FALSE)
#'
#' ggplot(mtcars) +
#' geom_histogram(aes(mpg), bins = 10) +
#' theme_2dii()
theme_2dii <- function(base_size = 12,
base_family = "Helvetica",
base_line_size = base_size / 22,
base_rect_size = base_size / 22) {
supporting_elts_color <- "#C0C0C0"
margin <- margin(5, 5, 5, 5)
theme_classic(
base_size = base_size,
base_family = base_family,
base_line_size = base_line_size,
base_rect_size = base_rect_size
) %+replace%
theme(
axis.line = element_line(colour = supporting_elts_color),
axis.ticks = element_line(colour = supporting_elts_color),
axis.text = element_text(size = base_size * 10 / 12, margin = margin),
axis.title = element_text(margin = margin),
legend.text = element_text(size = base_size * 9 / 12, margin = margin),
legend.title = element_blank(),
plot.margin = unit(c(0.5, 1, 0.5, 0.5), "cm"),
plot.title = element_text(
hjust = 0.5, vjust = 0.5, face = "bold",
size = base_size * 14 / 12,
margin = margin(8, 2, 8, 6)
),
plot.subtitle = element_text(
hjust = 0.5,
vjust = 0.5,
size = base_size * 10 / 12,
margin = margin(0, 2, 8, 6)
),
strip.background = element_blank(),
strip.switch.pad.grid = unit(0.2, "cm"),
strip.text = element_text(size = base_size * 10 / 12, margin = margin)
)
}
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.