#' A nicer default theme for ggplot2
#'
#' @examples
#' vpc(simple_data$sim, simple_data$obs) + theme_plain()
#'
#' @export
theme_plain <- function () {
ggplot2::theme(
text = ggplot2::element_text(),
plot.title = ggplot2::element_text(size = 16, vjust = 1.5),
axis.title.x = ggplot2::element_text(vjust=-0.25),
axis.title.y = ggplot2::element_text(),
legend.background = ggplot2::element_rect(fill = "white"),
#legend.position = c(0.14, 0.80),
panel.grid.major = ggplot2::element_line(colour = "#e5e5e5"),
panel.grid.minor = ggplot2::element_blank(),
panel.background = ggplot2::element_rect(fill = "#efefef", colour = NA),
strip.background = ggplot2::element_rect(fill = "#444444", colour = NA),
strip.text = ggplot2::element_text(face="bold", colour = "white")
)
}
#' Empty ggplot2 theme
#'
#' @examples
#' vpc(simple_data$sim, simple_data$obs) + theme_empty()
#'
#' @export
theme_empty <- function () {
ggplot2::theme(panel.grid.major = ggplot2::element_blank(),
panel.grid.minor = ggplot2::element_blank(),
panel.background = ggplot2::element_blank(),
axis.line = ggplot2::element_line(colour = "black"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.