data-raw/identidade_vizual.R

In italocegatta/suzano:

library(tidyverse)
library(suzano)
library(patchwork)

# UNF ---------------------------------------------------------------------

unf <- data_frame(
  unf = fct_inorder(c("MA", "BA", "SP")),
  m = c(5, 7, 9),
  s = 2
) %>%
  mutate(valor = pmap(list(100, m, s), rnorm)) %>%
  unnest()

ggplot(unf, aes(valor, fill = unf, color = unf)) +
  geom_density(alpha = 0.7) +
  scale_fill_manual(values = sz_cor_unf()) +
  scale_color_manual(values = sz_cor_unf()) +
  theme_sz() +
  ggsave("data-raw/padrao_cor/unf1.png")

ggplot(unf, aes(unf, valor)) +
  geom_boxplot(aes(fill = unf)) +
  geom_jitter(width = 0.05, alpha = 0.4) +
  scale_fill_manual(values = sz_cor_unf()) +
  theme_sz() +
  ggsave("data-raw/padrao_cor/unf2.png")


# Zonas -------------------------------------------------------------------

zona <- data_frame(
  unf = c(rep("SP", 3), rep("BA", 4), rep("MA", 6)),
  zona = c(paste0("S", 1:3), paste0("B", 1:4), paste0("M", 1:6)),
  m = c(20, 18, 16, 18, 16.5, 15, 13.5, 16, 15, 14, 13, 12, 11),
  s = 2
  ) %>%
  mutate(valor = pmap(list(100, m, s), rnorm)) %>%
  unnest()

i = "MA"
for (i in c("SP", "BA", "MA")) {
  # zona %>%
  #   filter(unf == i) %>%
  #   ggplot(aes(valor, fill = zona, color = zona)) +
  #   geom_density() +
  #   facet_wrap(~zona) +
  #   scale_fill_manual(values = sz_cor_zona()) +
  #   scale_color_manual(values = sz_cor_zona()) +
  #   theme_bw(20) +
  #   ggsave(glue::glue("data-raw/padrao_cor/{i}_old1.png"))
  #
  # zona %>%
  #   filter(unf == i) %>%
  #   ggplot(aes(zona, valor)) +
  #   geom_boxplot(aes(fill = zona)) +
  #   geom_jitter(width = 0.05, alpha = 0.4) +
  #   scale_fill_manual(values = sz_cor_zona()) +
  #   theme_bw(20) +
  #   ggsave(glue::glue("data-raw/padrao_cor/{i}_old2.png"))

  zona %>%
    filter(unf == i) %>%
    ggplot(aes(valor, fill = zona, color = zona)) +
    geom_density() +
    facet_wrap(~zona) +
    scale_fill_manual(values = sz_cor_zona()) +
    scale_color_manual(values = sz_cor_zona()) +
    theme_sz() +
    ggsave(glue::glue("data-raw/padrao_cor/{i}_new1.png"))

  zona %>%
    filter(unf == i) %>%
    ggplot(aes(zona, valor)) +
    geom_boxplot(aes(fill = zona)) +
    geom_jitter(width = 0.05, alpha = 0.4) +
    scale_fill_manual(values = sz_cor_zona()) +
    theme_sz() +
    ggsave(glue::glue("data-raw/padrao_cor/{i}_new2.png"))
}


ggplot(unf, aes(unf, valor)) +
  geom_boxplot(aes(fill = unf)) +
  geom_jitter(width = 0.05, alpha = 0.4) +
  scale_fill_manual(values = sz_cor_unf()) +
  theme_sz() +
  ggsave_sz("data-raw/padrao_cor/marca1.png")

ggplot(unf, aes(valor, fill = unf, color = unf)) +
  geom_density(alpha = 0.7) +
  scale_fill_manual(values = sz_cor_unf()) +
  scale_color_manual(values = sz_cor_unf()) +
  theme_sz() +
  ggsave_sz("data-raw/padrao_cor/marca2.png")