R/theme_inset.R

In ggmap: Spatial Visualization with ggplot2

#' 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')
}