인구통계 추세의 상대적 변화

이전 연습 문제에서는 시간에 따라 인구통계별 대출 변화가 어떻게 달라지는지 살펴봤습니다. 이번 연습 문제에서는 인구통계 추세의 상대적 변화를 보겠습니다. 이를 위해 각 그룹의 추세를 첫 해인 2008년의 대출 규모로 정규화하겠습니다.

이 연습은 강의의 일부입니다

R에서 확장 가능한 데이터 처리

강의 보기

연습 안내

rydf의 첫 번째 열을 column1으로 가져오세요.
열 1:8을 반복(loop)하며, 각 열을 첫 번째 열로 나누어 정규화하세요.
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()

코드 편집 및 실행