Eixo x categórico

Nos gráficos anteriores, vimos que caxumba só começou a ser reportada em 1999, o que torna sem sentido as comparações antes disso.

Vamos filtrar os dados para considerar apenas os casos reportados em 1999 ou depois e, em seguida, criar um gráfico de barras empilhadas olhando para a proporção de diferentes doenças por região.

Modifique o pipeline de manipulação de dados para deixar os dados no formato desejado, depois construa seu gráfico de barras empilhadas e faça o plot! Não se preocupe em ordenar as barras aqui como fizemos no exercício anterior. Notou algum padrão surpreendente?

Este exercício faz parte do curso

Boas práticas de visualização em R

Ver curso

Instruções do exercício

Filtre who_disease para somente os anos de 1999 em diante.
Adicione ao group_by() para manter a informação de region no resumo.
Preencha os estéticos com x = region, y = total_cases e fill = disease.

Exercício interativo prático

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

disease_counts <- who_disease %>%
	# Filter to on or later than 1999
	filter(___) %>% 
	mutate(disease = ifelse(disease %in% c('measles', 'mumps'), disease, 'other')) %>%
	group_by(disease, ___) %>%    # Add region column to grouping
	summarise(total_cases = sum(cases))

# Set aesthetics so disease is the stacking variable, region is the x-axis and counts are the y
ggplot(disease_counts, aes(___)) +
	# Add a column geometry with the proper position value.
	___(___)

Editar e executar o código