실업률 데이터에 연속 이동 평균 추가하기
연초 누계와 같은 이산형 지표 외에도, 시계열 데이터에 이동 합계나 이동 평균을 추가하고 싶을 때가 있습니다.
이를 위해 월별 unemployment 데이터로 돌아가 보겠습니다. 특정 월의 고정된 실업률 수준도 관심 대상이지만, 더 넓은 경제 환경을 파악하려면 여러 개월에 걸친 이동 지표가 도움이 됩니다.
이를 위해 rollapply() 명령을 사용합니다. 이 함수는 시계열 객체, 창의 크기 width, 그리고 각 이동 창에 적용할 FUN 인수를 받습니다.
이 연습은 강의의 일부입니다
사례 연구: R로 도시 시계열 데이터 분석
연습 안내
rollapply()를 사용해 미국 실업률의 연간 이동 평균을 계산하세요.unemployment데이터의us열을 지정하고,width인수를 적절한 월 단위 기간 수로 설정한 뒤,FUN인수를mean으로 설정하세요. 계산한 이동 평균은unemployment객체의year_avg로 저장하세요.plot.zoo()를 사용해 미국 실업률의 두 지표(us와year_avg)를 그리세요. 두 값을 같은 패널에 표시하려면plot.type인수를"single"로 설정하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Use rollapply to calculate the rolling yearly average US unemployment
unemployment$year_avg <- rollapply(___$___, width = ___, FUN = ___)
# Plot all columns of US unemployment data
plot.zoo(unemployment[, c("___", "___")], plot.type = "___", lty = lty, lwd = lwd)