Visualización de las tendencias demográficas ajustadas

Comparemos cómo cambian los préstamos a lo largo del tiempo entre distintos grupos demográficos. El data frame rydf que creaste en el ejercicio anterior está disponible en tu espacio de trabajo.

Nota: hemos eliminado la fila correspondiente a "Not Avail".

Este ejercicio forma parte del curso

Procesamiento de datos escalable en R

Ver curso

Instrucciones del ejercicio

tidyr y ggplot2 están cargados en tu espacio de trabajo.

Imprime los objetos rydf y pop_proportion.
Convierte rydf a un data frame en formato largo reuniendo todas las columnas excepto Race.
Crea un gráfico de líneas con Year y Adjusted_Count en los ejes x e y, respectivamente.

Ejercicio interactivo práctico

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

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

Editar y ejecutar código