#' ggplot2 map theme
#'
#' Mimimal theme for ggplot2 maps, wihtout legend
#'
#' @export
#'
cust_mtheme <- function() {
res <- theme(
axis.line = element_blank(),
axis.text = element_blank(),
panel.background = element_rect(fill = 'white'),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.key = element_rect(fill = NA),
legend.position = 'none',
axis.ticks = element_blank(),
axis.title = element_blank()
)
res
}
#' ggplot2 minimal theme
#'
#' Mimimal theme for ggplot2
#'
#' @export
#'
cust_theme <- function() {
res <- theme(
text = element_text(size = 12,family = 'serif', color = "#1E1E1E"),
axis.line = element_line(colour = '#1E1E1E'),
axis.text = element_text(color = '#1E1E1E'),
panel.background = element_rect(fill = 'white'),
panel.grid.major.y = element_blank(),
panel.grid.major.x = element_blank(),
panel.grid.minor.y = element_blank(),
panel.grid.minor.x = element_blank(),
strip.text.y = element_text(angle = 0, hjust = 0.1),
strip.background = element_blank(),
legend.key = element_rect(fill = NA),
legend.position = 'none'
)
res
}
#' ggplot2 thesis theme
#'
#' Custom theme
#'
#' @export
theme_thesis <- function(){
theme(
panel.background = element_rect(fill = NA),
panel.grid.major = element_line(colour = "grey80"),
legend.background = element_rect(fill = "white", colour = "grey60"),
legend.key = element_blank(),
axis.ticks = element_blank(),
strip.background = element_rect(fill = NA)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.