R/theme_uf.R

In dpaudel/dpaudelR: Simple Tools For Data Wrangling

#' @export
theme_uf <- function () {
# extrafont::loadfonts(device = "pdf")
windowsFonts(Arial=windowsFont("TT Arial"))
    theme_bw(base_size=12, base_family="Arial") %+replace% 
      theme(
        panel.background  = element_blank(),
        plot.background = element_rect(fill="white", colour=NA), 
        legend.background = element_rect(fill="transparent", colour=NA),
        legend.key        = element_rect(fill="transparent", colour=NA)
      )
  }