data-raw/debug_theme.R

In italocegatta/suzano:

library(tidyverse)
library(suzano)

ba <- tribble(
  ~ano, ~B1, ~B2, ~B3, ~B4,
  2008, 1456, 1442, 1194, 911,
  2009, 1537, 835,  974, 903,
  2010, 1265, 1164, 891, 965,
  2011, 1489, 997,  1184, 967,
  2012, 1175, 677,  858, 758,
  2013, 1285, 1044, 1248, 826,
  2014, 1098, 1037, 996, 907,
  2015, 788, 538,   492, 496,
  2016, 859, 1033,  550, 853
  ) %>%
  gather(zona, ppt, B1:B4)

ggplot(ba, aes(ppt, fill = zona)) +
  geom_density() +
  scale_fill_manual(values = sz_zona_cor2()) +
  theme_sz() +
  ggsave_sz(
    "teste3.png", width = 10, height = 8,
    background = T
  )

ggplot(mtcars, aes(mpg, hp, color = cyl)) +
  geom_point() +
  #facet_wrap(~am) +
  #theme_suzano() +
  ggsave("teste2.png", width = 10, height = 8)

ggplot(mtcars, aes(mpg, hp, color = cyl)) +
  geom_point() +
  facet_wrap(~am) +
  theme_suzano()