R/gg_facebook.R

In vandomed/dvmisc: Convenience Functions, Moving Window Statistics, and Graphics

#' Quickly Format and Save a ggplot Object for Posting to Facebook
#'
#' Optionally resizes title and axis labels and saves a 1000 dpi png 5 inches
#' tall and ~9.5 inches wide via \code{\link[ggplot2]{ggsave}}. Values are
#' adjustable.
#'
#' @param filename Character string
#' @param path Character string
#' @param plot \code{\link[ggplot2]{ggplot}}
#' @param resize_labels Logical value
#' @param title_size Numeric value
#' @param axistitle_size Numeric value
#' @param axistext_size Numeric value
#' @param height Numeric value
#' @param width Numeric value
#' @param dpi Numeric value
#'
#'
#' @export
gg_facebook <- function(filename = paste("fig1-", Sys.Date(), ".png", sep = ""),
                        path = getwd(),
                        plot = last_plot(),
                        resize_labels = TRUE,
                        title_size = 16,
                        axistitle_size = 13,
                        axistext_size = 9,
                        height = 5,
                        width = height / 0.525,
                        dpi = 1000) {

  if (resize_labels) {
    plot <- plot +
      theme(
        plot.title = element_text(size = title_size),
        axis.title = element_text(size = axistitle_size),
        axis.text = element_text(size = axistext_size)
      )
  }

  ggsave(
    filename = filename,
    path = path,
    plot = plot,
    width = width,
    height = height,
    dpi = dpi
  )

}