Względna zmiana trendu demograficznego

W poprzednim ćwiczeniu analizowano zmiany w poziomie zadłużenia w poszczególnych grupach demograficznych na przestrzeni czasu. W tym ćwiczeniu przyjrzysz się względnej zmianie trendu demograficznego. W tym celu znormalizujesz trend każdej grupy względem poziomu zadłużenia z pierwszego roku – 2008.

To ćwiczenie jest częścią kursu

Skalowalne przetwarzanie danych w R

Zobacz kurs

Instrukcje do ćwiczenia

Pobierz pierwszą kolumnę ramki rydf jako column1.
Wykonaj pętlę po kolumnach 1:8, normalizując je przez podzielenie każdej kolumny przez pierwszą kolumnę.
Narysuj wykres z Year na osi x i Proportion na osi y, z kolorowaniem i grupowaniem według zmiennej Race.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod