人口统计趋势的相对变化

在上一个练习中，您查看了不同人群借贷随时间的变化。在本练习中，您将关注人口统计趋势的相对变化。为此，您需要用 2008 年（第一年）的借贷额对每个群体的趋势进行归一化。

本练习是课程的一部分

R 的可扩展数据处理

练习说明

将 rydf 的第 1 列提取为 column1。
遍历第 1:8 列，用每一列除以第 1 列来进行归一化。
作图时在 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()

编辑并运行代码