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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.