Visualizando a diferença: Batman e Star Wars
No exercício anterior, você criou colors_joined. Agora você vai criar um gráfico de barras com uma barra para cada cor (name), mostrando a diferença nas frações.
Como fatores e visualização estão além do escopo deste curso, já deixamos um pré-processamento pronto 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
Combinando dados com dplyr
Instruções do exercício
- Crie um gráfico de barras usando a tabela
colors_joinedpara exibir as cores mais proeminentes nos temas Batman e Star Wars, com as barras coloridas porname.
Exercício interativo prático
Experimente este exercício completando 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")