R/theme_suzano.R

In italocegatta/suzano:

#' Identidade visual dos graficos da Suzano
#'
#' @export
theme_sz <- function(base_size = 20, base_family= "sans") {

  theme_bw(base_size = base_size, base_family = base_family) +
    theme(
      legend.justification = "top",
      strip.background = element_rect(colour = "#1F5892", fill = "#1F5892"),
      strip.text = element_text(colour = "white"),

      panel.border = element_rect(color = "grey60"),
      axis.ticks = element_line(colour = "grey60"),

      text = element_text(colour = "#3C3C3C"),

      panel.grid.major = element_line(colour = "grey85"),
      panel.grid.minor = element_line(colour = "grey90"),

      panel.background = element_rect(fill ="#F0F0F0"),
      plot.background = element_rect(fill ="#F0F0F0"),
      legend.background = element_rect(fill ="#F0F0F0"),
      legend.key = element_rect(fill ="#F0F0F0")
    )
}

#' ADD logo Suzano
#' @export
ggsave_sz <- function(filename, plot = last_plot(),
                      background = TRUE,
                      device = NULL, path = NULL,
                      scale = 1, width = NA, height = NA,
                      units = c("in", "cm", "mm"),
                      dpi = 300, limitsize = TRUE, ...) {

  ggsave(
    filename, plot = last_plot(), device = device, path = path ,
    scale = scale, width = width, height = height , units = units,
    dpi =  dpi, limitsize = limitsize
  )

  #tempfile()

  texto <- magick::image_blank(200, 57, "#F0F0F0") %>%
    magick::image_annotate(
      "Tecnologia Florestal", color = "#1F5892", size = 20,
      gravity = "center"
    )

  # meio <- magick::image_blank(300, 57, "#F0F0F0")
  #
  # logo <- magick::image_read("data-raw/suzano_logo.png") %>%
  #   magick::image_background("#F0F0F0", flatten = TRUE) %>%
  #   magick::image_resize("180x")
  #
  # footer <- magick::image_append(c(logo, meio, texto)) %>%
  #   magick::image_border("grey60", "0x1")

  footer <- magick::image_read("data-raw/logo_suz2.png") %>%
    magick::image_background("#F0F0F0", flatten = TRUE) %>%
    magick::image_border("grey60", "0x2")

  plot <- magick::image_read(filename) %>%
    magick::image_border("grey60", "0x2")

  new <- magick::image_append(magick::image_scale( c(plot, footer)),  stack = TRUE) %>%
    magick::image_border("grey60", "2x0")

  if(!background) {
    new <- magick::image_transparent(new, "#F0F0F0")
  }

  magick::image_write(new, filename)

  invisible()
}