Visualisering av justerade demografiska trender

Nu ska vi jämföra hur låntagandet förändrats över tid inom olika demografiska grupper. Dataramen rydf som du skapade i föregående övning finns tillgänglig i din arbetsmiljö.

Obs: Vi har tagit bort raden som motsvarar "Not Avail".

Den här övningen är en del av kursen

Skalbar databehandling i R

Visa kurs

Övningsinstruktioner

tidyr och ggplot2 är inlästa i din arbetsmiljö.

Skriv ut objekten rydf och pop_proportion.
Konvertera rydf till ett långformaterat dataframe genom att samla alla kolumner utom Race.
Skapa ett linjediagram med Year och Adjusted_Count på x- respektive y-axeln.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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

Redigera och kör kod