R/urbn_logo_text.R

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

#' The Urban Institute [ggplot2] theme
#'
#' Creates a grid object with the Urban Institute logo
#'
#' @import grid
#' @import gridExtra
#' @md
#' @export
urbn_logo_text <- function() {
  grid::grobTree(
  gp = gpar(fontsize = 7,
            hjust = 1,
            vjust = 1),
  textGrob(label = " I N S T I T U T E",
           name = "caption1",
           x = unit(1, "npc"),
           y = unit(1, "npc"),
           hjust = 1,
           vjust = 1,
           gp = gpar(fontface = "bold",
                     fontfamily = "Lato")),
  grid::textGrob(label = "U R B A N ",
           x = unit(1, "npc") - grobWidth("caption1") - unit(0.001, "lines"),
           y = unit(1, "npc"),
           hjust = 1,
           vjust = 1,
           gp = gpar(col = "#1696d2", fontface = "bold", fontfamily = "Lato"))
  )
}