De aangepaste demografische trends visualiseren

Laten we veranderingen in lenen per demografische groep over de tijd vergelijken. Het datacadre rydf dat je in de vorige oefening hebt gemaakt, is beschikbaar in je werkruimte.

Let op: we hebben de rij die overeenkomt met "Not Avail" verwijderd.

Deze oefening maakt deel uit van de cursus

Schaalbare gegevensverwerking in R

Bekijk cursus

Oefeninstructies

tidyr en ggplot2 zijn geladen in je werkruimte.

Print de objecten rydf en pop_proportion.
Zet rydf om naar een long-formaat door alle kolommen behalve Race te verzamelen.
Maak een lijngrafiek met Year en Adjusted_Count respectievelijk op de x- en y-as.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

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

Code bewerken en uitvoeren