#'
#' Theme for dignostic plotting using \pkg{ggplot2}
#'
#' Diagnostic plots by \pkg{bdm} are produced using \pkg{ggplot2} with the theme set by a call to \code{ggtheme()}. Note that this function is not exported to avoid conflicts with other packages.
#'
#' @examples
#' ggtheme <- function(base_size = 12, base_family = "")
#' {
#' theme_grey(base_size = base_size, base_family = base_family) %+replace%
#' theme(axis.text = element_text(size = rel(1.0)),
#' axis.title = element_text(size = rel(1.2)),
#' axis.ticks = element_line(colour = "black"),
#' strip.text = element_text(size = rel(1.2)),
#' legend.key = element_rect(colour = "grey80"),
#' panel.background = element_rect(fill = "white",colour = NA),
#' panel.border = element_rect(fill = NA, colour = "grey50"),
#' panel.grid.major = element_line(colour = "grey80", size = 0.2),
#' panel.grid.minor = element_line(colour = "grey88", size = 0.5),
#' strip.background = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
#' )}
#'
ggtheme <- function(base_size = 12, base_family = "")
{
theme_grey(base_size = base_size, base_family = base_family) %+replace%
theme(axis.text = element_text(size = rel(1.0)),
axis.title = element_text(size = rel(1.2)),
axis.ticks = element_line(colour = "black"),
strip.text = element_text(size = rel(1.2)),
legend.key = element_rect(colour = "grey80"),
panel.background = element_rect(fill = "white",colour = NA),
panel.border = element_rect(fill = NA, colour = "grey50"),
panel.grid.major = element_line(colour = "grey80", size = 0.2),
panel.grid.minor = element_line(colour = "grey88", size = 0.5),
strip.background = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.