시계열에서 사건 강조하기
기존 플롯에 직선을 추가하려면 함수 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()을 사용할 수 있습니다.
이 연습은 강의의 일부입니다
R로 시계열 데이터 시각화하기
연습 안내
data의 세 번째 시리즈를 플로팅하고 제목을 "Citigroup"으로 지정하세요.- 2016년 1월 4일에 해당하는 "citigroup" 데이터 포인트의 인덱스를
vert_line으로 생성하세요. abline(),.index(), 그리고vert_line을 사용해 해당 날짜에 빨간색 수직선을 추가하세요.- "citigroup" 가격의 평균값과 같은 객체
hori_line을 생성하세요. abline()과hori_line을 사용해 이 평균값 위치에 파란색 수평선을 추가하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Plot the "citigroup" time series
# Create vert_line to identify January 4th, 2016 in citigroup
vert_line <- which(index(___) == as.Date(___))
# Add a red vertical line using vert_line
abline(___ = .index(___)[___], col = "red")
# Create hori_line to identify average price of citigroup
hori_line <- ___(___)
# Add a blue horizontal line using hori_line
abline(___ = ___, col = "blue")