人口動態トレンドの相対変化

前の演習では、時間の経過に伴う人口属性ごとの借入の変化を見ました。この演習では、人口動態トレンドの相対的な変化を確認します。そのために、各グループのトレンドを最初の年である2008年の借入額で正規化します。

この演習はコースの一部です

Rで学ぶスケーラブルなデータ処理

演習の手順

rydf の最初の列を column1 として取得します。
列 1:8 をループし、各列を最初の列で割って正規化します。
x軸に Year、y軸に Proportion をとり、Race 変数で色分け・グループ化してプロットします。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

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

コードを編集して実行