Попробуем вафельную диаграмму?

Что если нас интересуют подробности по классу 'other'?

Перейдём к вафельной диаграмме — она лучше справляется с большим количеством классов. Мы воспользуемся тем же конвейером обработки данных из предыдущего упражнения, но на этот раз оставим все заболевания.

Мы будем использовать библиотеку waffle, которая содержит функцию waffle(). Эта функция строит вафельную диаграмму на основе именованного вектора с количеством наблюдений.

Диаграмма отображает один квадрат на каждую единицу из вектора, поэтому нам нужно преобразовать количество случаев заболеваний в округлённые проценты (обратите внимание на вызов mutate() в предоставленном коде обработки данных).

Это упражнение является частью курса

Лучшие практики визуализации в R

Посмотреть курс

Инструкции к упражнению

Присвойте вектору case_counts имена с помощью функции names().
Вызовите функцию waffle() из библиотеки waffle, передав вектор case_counts в качестве аргумента.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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(___)

Редактировать и запускать код