Визуализация скорректированных демографических тенденций

Давайте сравним изменения в объёмах кредитования по демографическим группам с течением времени. Фрейм данных rydf, созданный в предыдущем упражнении, доступен в вашем рабочем пространстве.

Примечание: строка, соответствующая значению "Not Avail", была удалена.

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

Масштабируемая обработка данных в R

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

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

tidyr и ggplot2 загружены в вашем рабочем пространстве.

Выведите объекты rydf и pop_proportion.
Преобразуйте rydf в фрейм данных длинного формата, собрав все столбцы, кроме Race.
Постройте линейный график, разместив Year и Adjusted_Count на осях x и y соответственно.

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

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

# View rydf
___ 

# View pop_proportion
___

# Gather on all variables except Race
rydfl <- ___(rydf, ___, names_to = "Year", values_to = "Count")

# Create a new adjusted count variable
rydfl$Adjusted_Count <- rydfl$Count / pop_proportion[rydfl$Race]

# Plot
ggplot(rydfl, aes(x = ___, y = ___, group = Race, color = Race)) + 
    geom_line()

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