#' Make a ggplot2 inset theme.
#'
#' theme_inset is a ggplot2 theme geared towards making inset plots.
#'
#' @param base_size base size, not used.
#' @return a ggplot2 theme (i.e., a list of class options).
#' @author David Kahle \email{david@@kahle.io}
#' @export
#' @examples
#' library(ggplot2)
#' \dontrun{
#'
#'
#' n <- 50
#' df <- expand.grid(x = 1:n,y = 1:n)[sample(n^2,.5*n^2),]
#' qplot(x, y, data = df, geom = 'tile')
#' qplot(x, y, data = df, geom = 'tile') + theme_nothing()
#'
#' qplot(1:10, 1:10) +
#' annotation_custom(
#' grob = ggplotGrob(qplot(1:10,1:10)),
#' 8, Inf, -Inf, 2
#' )
#'
#' qplot(1:10, 1:10) +
#' annotation_custom(
#' grob = ggplotGrob(qplot(1:10,1:10) + theme_nothing()),
#' 8, Inf, -Inf, 2
#' )
#'
#' qplot(1:10, 1:10) +
#' annotation_custom(
#' grob = ggplotGrob(qplot(1:10,1:10) + theme_inset()),
#' 8, Inf, -Inf, 2
#' )
#'
#' }
#'
theme_inset <- function (base_size = 12){
theme(axis.line = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
axis.title = element_blank(),
axis.ticks.length = unit(0, "lines"),
panel.spacing = unit(0, "lines"),
plot.margin = unit(c(0, 0, 0, 0), "lines"),
legend.position = 'none')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.