1. 학습
    2. /
  2. 강의
    3. /
  3. R로 시계열 데이터 시각화하기
Connected

연습 문제

시계열에서 사건 강조하기

기존 플롯에 직선을 추가하려면 함수 abline()을 사용할 수 있다는 것도 배웠습니다. 구체적으로, h에 특정 Y 값을 설정하면 수평선을 그려 특정 수준을 표시할 수 있고, v에 특정 X 값을 설정하면 수직선을 그려 특정 날짜를 표시할 수 있습니다:

> abline(h = NULL, v = NULL, ...)

xts 객체의 인덱스는 날짜 객체이므로, 플롯의 X 값에도 날짜가 포함됩니다. 이 연습에서는 인덱싱과 as.Date("YYYY-MM-DD"), 그리고 mean()을 사용해 Citigroup 주가의 평균과 2016년 1월 4일(중국 증시 변동성의 영향을 받은 이후)의 주가를 시각적으로 비교해 보겠습니다.

이전과 동일한 데이터셋 data가 제공됩니다. 함께 시도해 보세요.

참고: 이 코드는 xts 버전 0.9-7에서 동작합니다. 특정 버전의 패키지를 설치하려면 remotes::install_version()을 사용할 수 있습니다.

지침

100 XP
  • data의 세 번째 시리즈를 플로팅하고 제목을 "Citigroup"으로 지정하세요.
  • 2016년 1월 4일에 해당하는 "citigroup" 데이터 포인트의 인덱스를 vert_line으로 생성하세요.
  • abline(), .index(), 그리고 vert_line을 사용해 해당 날짜에 빨간색 수직선을 추가하세요.
  • "citigroup" 가격의 평균값과 같은 객체 hori_line을 생성하세요.
  • abline()과 hori_line을 사용해 이 평균값 위치에 파란색 수평선을 추가하세요.