Visualizando as tendências demográficas ajustadas

Vamos comparar, ao longo do tempo, as mudanças no volume de empréstimos entre diferentes grupos demográficos. O data frame rydf que você criou no último exercício está disponível no seu ambiente.

Observação: removemos a linha correspondente a "Not Avail".

Este exercício faz parte do curso

Processamento de Dados em Escala no R

Ver curso

Instruções do exercício

tidyr e ggplot2 já estão carregados no seu ambiente.

Imprima os objetos rydf e pop_proportion.
Converta rydf para um data frame em formato longo reunindo todas as colunas, exceto Race.
Crie um gráfico de linhas com Year no eixo x e Adjusted_Count no eixo y, respectivamente.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

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

Editar e executar o código