R/urbn_subtitle.R

In UrbanInstitute/urbnthemes: Additional theme and utilities for "ggplot2" in the Urban Institute style

#' urbn_subtitle
#'
#' Add a subtitle to a plot created with \code{urbn_plot()}.
#'
#' @param string character string for a subtitle
#' @param size font size for the subtitle
#'
#' @return a grob formatted for a subtitle in a ggplot
#'
#' @export
#'
urbn_subtitle <- function(string, size = 9.5) {
  grid::textGrob(string,
           x = unit(0, "npc"),
           y = unit(1, "npc"),
           hjust = 0,
           vjust = 1,
           gp = gpar(fontsize = size,
                     fontfamily = "Lato"))
}