Que tal um waffle?

E se a gente se interessar pelos detalhes da classe 'other'?

Vamos trocar para um gráfico waffle, já que ele consegue lidar com mais classes. Vamos usar o mesmo pipeline de manipulação de dados do exercício anterior, mas agora com todas as doenças incluídas.

Vamos usar a biblioteca waffle, que contém a função waffle(). Essa função gera um gráfico waffle quando você fornece um vetor nomeado com as contagens.

Ela desenha um quadrado para cada unidade no vetor, então precisamos transformar nossas contagens de doenças em percentuais arredondados (note a chamada a mutate() no código de preparação de dados fornecido).

Este exercício faz parte do curso

Boas práticas de visualização em R

Ver curso

Instruções do exercício

Dê nomes ao vetor case_counts usando a função names().
Chame a função waffle() da biblioteca waffle, passando o vetor case_counts como argumento.

Exercício interativo prático

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

disease_counts <- who_disease %>%
group_by(disease) %>%
	summarise(total_cases = sum(cases)) %>% 
	mutate(percent = round(total_cases/sum(total_cases)*100))

# Create an array of rounded percentages for diseases.
case_counts <- disease_counts$percent
# Name the percentage array with disease_counts$disease
___

# Pass case_counts vector to the waffle function to plot
waffle(___)

Editar e executar o código