¿Qué tal un waffle?

¿Y si nos interesan los detalles de la clase 'other'?

Vamos a pasar a un gráfico de waffle, ya que permite manejar más clases. Usaremos el mismo flujo de manipulación de datos del ejercicio anterior, pero esta vez con todas las enfermedades incluidas.

Usaremos la librería waffle, que contiene la función waffle(). Esta función genera un gráfico de waffle cuando se le proporciona un vector con nombres y recuentos.

Dibuja un cuadrado por cada unidad indicada en el vector, así que tenemos que transformar nuestros recuentos de enfermedades a porcentajes redondeados (fíjate en la llamada a mutate() en el código de preparación de datos proporcionado).

Este ejercicio forma parte del curso

Buenas prácticas de visualización en R

Ver curso

Instrucciones del ejercicio

Asigna nombres al vector case_counts usando la función names().
Llama a la función waffle() de la librería waffle pasando el vector case_counts como argumento.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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 y ejecutar código