Relatieve verandering in demografische trend

In de vorige oefening bekeek je de veranderingen in lenen per demografie in de tijd. In deze oefening kijk je naar de relatieve verandering in de demografische trend. Hiervoor normaliseer je de trend van elke groep door te delen door het leenbedrag in het eerste jaar, 2008.

Deze oefening maakt deel uit van de cursus

Schaalbare gegevensverwerking in R

Bekijk cursus

Oefeninstructies

Haal de eerste kolom van rydf op als column1.
Loop over kolommen 1:8 en normaliseer ze door elke kolom te delen door de eerste kolom.
Plot Year op de x-as en Proportion op de y-as, met kleur en groepering op basis van de variabele Race.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# View rydf
rydf

# Get the first column of rydf
column1 <- rydf[, 1]

# Normalize the first 8 columns
for(this_column in 1:8) {
  rydf[, this_column] <- rydf[, ___] / ___
}

# Convert the data to long format
rydf_long <- pivot_longer(rydf, -Race, names_to = "Year", values_to = "Proportion")

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

Code bewerken en uitvoeren