Rótulos e ordem nas facetas

Visualização de Dados Intermediária com ggplot2

Rick Scavetta

Founder, Scavetta Academy

Um novo dataframe

# Gráfico
p <- ggplot(msleep2, aes(bodywt_log,
                         brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  coord_fixed()

p

Um novo dataframe, com facetas

p +
  facet_grid(rows = vars(vore))

Um novo dataframe, com facetas

p +
  facet_grid(rows = vars(vore))

Rótulos e ordem ruins

p +
  facet_grid(rows = vars(vore))

Dois problemas comuns em facetas:

Rótulos ruins (pouco descritivos)
Ordem errada ou inadequada

Rótulos e ordem ruins

p +
  facet_grid(rows = vars(vore))

Soluções:

Fácil: adicionar rótulos no ggplot
Melhor: renomear e reordenar fatores no dataframe

O argumento labeller

# Padrão: rotular o valor
p +
  facet_grid(rows = vars(vore), 
             labeller = label_value)

Usar label_both adiciona o nome da variável

# Imprimir também o nome da variável
p +
  facet_grid(rows = vars(vore), 
               labeller = label_both)

Duas variáveis de um lado

p +
  facet_grid(rows = vars(vore, 
                         conservation))

label_context evita ambiguidade

p +
  facet_grid(rows = vars(vore,
                         conservation),
               labeller = label_context)

Use linhas e colunas quando fizer sentido

p +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation),
             labeller = label_context)

Use linhas e colunas quando fizer sentido

p +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation))

Use linhas e colunas quando fizer sentido

Renomeando e reordenando fatores

msleep2$conservation <- fct_recode(msleep2$conservation,
                                   Domesticated = "domesticated",
                                   `Least concern` = "lc",
                                   `Near threatened` = "nt",
                                   Vulnerable = "vu",
                                   Endangered = "en")

msleep2$vore = fct_recode(msleep2$vore,
                          Carnivore = "carni",
                          Herbivore = "herbi",
                          Insectivore = "insecti",
                          Omnivore = "omni")

Reinicializar gráfico com novos rótulos

# Gráfico
p <- ggplot(msleep2, aes(bodywt_log,
                         brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  coord_fixed()

p +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation))

Reinicializar gráfico com novos rótulos

Mudando a ordem dos níveis

# Mudar a ordem dos níveis:
msleep2$conservation = fct_relevel(msleep2$conservation,
                                   c("Domesticated",
                                     "Least concern",
                                     "Near threatened",
                                     "Vulnerable",
                                     "Endangered"))

Reinicializar gráfico com nova ordem

Vamos praticar!

Visualização de Dados Intermediária com ggplot2