#' @title DrWhy Theme for ggplot objects
#'
#' @return theme for ggplot2 objects
#' @noRd
theme_drwhy <- function() {
theme_bw(base_line_size = 0) %+replace%
theme(
# upper stip
strip.background = element_blank(),
strip.text = element_text(color = "#371ea3", size = 12, hjust = 0, margin = margin(0, 0, 1, 0)),
# axes
axis.ticks = element_blank(),
axis.title = element_text(color = "#371ea3"),
axis.text = element_text(color = "#371ea3", size = 10),
# legend
legend.direction = "horizontal",
legend.justification = c(1, 0),
legend.position = c(1, 0.97),
legend.background = element_blank(),
legend.title = element_blank(),
legend.key = element_blank(),
legend.text = element_text(color = "#371ea3", size = 10),
# panel
panel.background = element_blank(),
panel.border = element_blank(),
# plot backgroud and title
plot.background = element_blank(),
plot.title = element_text(color = "#371ea3", face = "bold", hjust = 0),
complete = TRUE,
# changeable values
axis.line.x = element_line(color = "#371ea3"),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.major.y = element_line(color = "grey90", size = 0.5, linetype = 1),
panel.grid.minor.y = element_line(color = "grey90", size = 0.5, linetype = 1)
)
}
#' @param n number of colors to get
#'
#' @noRd
theme_drwhy_colors <- DALEX::colors_discrete_drwhy
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.