可视化经调整的人口统计趋势

让我们比较不同人群在各年份的借贷变化。上一个练习中创建的数据框 rydf 已在您的工作区中可用。

注意：我们已移除了对应 "Not Avail" 的行。

本练习是课程的一部分

R 的可扩展数据处理

查看课程

练习说明

tidyr 和 ggplot2 已加载到您的工作区。

打印 rydf 和 pop_proportion 对象。
将 rydf 转换为长格式数据框，收集除 Race 以外的所有列。
使用折线图：将 Year 设为 x 轴，将 Adjusted_Count 设为 y 轴。

交互式实操练习

通过完成这段示例代码来试试这个练习。

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

编辑并运行代码