Relativní změna demografického trendu

V předchozím cvičení jsi sledoval/a změny v objemu půjček napříč demografickými skupinami v čase. V tomto cvičení se podíváš na relativní změnu demografického trendu. K tomu normalizuješ trend každé skupiny podle objemu půjček v prvním roce, tedy v roce 2008.

Toto cvičení je součástí kurzu

Škálovatelné zpracování dat v R

Zobrazit kurz

Pokyny k cvičení

Získej první sloupec rydf jako column1.
Projdi smyčkou sloupce 1:8 a normalizuj je tak, že každý sloupec vydělíš prvním sloupcem.
Vykresli Year na osu x a Proportion na osu y, s barevným rozlišením a seskupením podle proměnné Race.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód