#' Theme for Ricas
#'
#' Colors sizes, legends and in particular font sizes have been optimized
#' for posters and for situations when there are long variable names
#' When saving, a size of 10 cm will make sure that very little editing is
#' needed in illustrator.
#'
#' @param base_size The font size. Default 16
#' @param base_family The font type. Default "Helvetica"
#'
#' @export
#' @return A gggplot theme function
theme_ricas <- function(base_size=16, base_family="Helvetica") {
(ggthemes::theme_foundation(base_size = base_size, base_family = base_family)
+ theme(
plot.title = element_text(
face = "bold",
size = rel(1.2), hjust = 0.5
),
text = element_text(),
panel.background = element_rect(colour = NA),
plot.background = element_rect(colour = NA),
panel.border = element_rect(colour = NA),
axis.title = element_text(face = "bold", size = rel(1)),
axis.title.y = element_text(angle = 90, vjust = 2),
axis.title.x = element_text(vjust = -0.2),
axis.text = element_text(),
axis.line = element_line(colour = "black"),
axis.ticks = element_line(),
legend.key = element_rect(colour = NA),
legend.key.size = unit(0.5, "cm"),
legend.spacing = unit(0.5, "cm"),
legend.spacing.y = unit(0.5, "cm"),
legend.title = element_text(face = "bold"),
plot.margin = unit(c(10, 5, 5, 5), "mm"),
strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"),
strip.text = element_text(face = "bold"),
panel.spacing.y = unit(2, "lines"),
axis.text.x = element_text(angle=40, vjust=.8, hjust=1.01),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank()
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.