Visualizando a diferença: Batman e Guerra nas Estrelas

No último exercício, você criou colors_joined. Agora você criará um gráfico de barras com uma barra para cada cor (name), mostrando a diferença em frações.

Como os fatores e a visualização estão além do escopo deste curso, fizemos alguns processamentos para você: aqui está o código que criou a tabela colors_joined que será usada no vídeo.

colors_joined <- batman_colors %>%

  full_join(star_wars_colors, by = "color_id", suffix = c("_batman", "_star_wars")) %>%

  replace_na(list(total_batman = 0, total_star_wars = 0)) %>%

  inner_join(colors, by = c("color_id" = "id")) %>%

  mutate(difference = fraction_batman - fraction_star_wars,

         total = total_batman + total_star_wars) %>%

  filter(total >= 200) %>%

  mutate(name = fct_reorder(name, difference))

Este exercício faz parte do curso

Unindo dados com o dplyr

Ver Curso

Instruções de exercício

Crie um gráfico de barras usando a tabela colors_joined para exibir as cores mais proeminentes nos temas Batman e Star Wars, com as barras coloridas de acordo com seu name.

Exercício interativo prático

Experimente este exercício preenchendo este código de exemplo.

# Create a bar plot using colors_joined and the name and difference columns
ggplot(___, aes(___, ___, fill = ___)) +
  geom_col() +
  coord_flip() +
  scale_fill_manual(values = color_palette, guide = "none") +
  labs(y = "Difference: Batman - Star Wars")

Editar e executar código