Категориальная ось X
На предыдущих графиках мы увидели, что данные по эпидемическому паротиту начали поступать только с 1999 года, поэтому сравнения за более ранние периоды не имеют смысла.
Отфильтруем данные так, чтобы остались только случаи, зарегистрированные начиная с 1999 года, а затем построим составную столбчатую диаграмму, отражающую долю различных заболеваний по регионам.
Измените конвейер обработки данных, чтобы привести данные к нужному виду, затем постройте диаграмму и отобразите её. Не беспокойтесь о сортировке столбцов, как это делалось в предыдущем упражнении. Удалось ли заметить что-то неожиданное?
Это упражнение является частью курса
Лучшие практики визуализации в R
Инструкции к упражнению
- Отфильтруйте данные
who_disease, оставив только записи за 1999 год и позднее. - Добавьте в
group_by()группировку поregion, чтобы сохранить информацию о регионе в сводной таблице. - Укажите эстетики:
x = region,y = total_casesиfill = disease.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
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.
___(___)