시간 슬라이더 추가하기
이전 레슨에서는 연도별로 각 국가(state)의 발사 횟수를 보여주는 애니메이션을 만들었어요. 슬라이더 바는 해당 애니메이션을 대체하는 방법으로, 어떤 구간을 살펴볼지 완전히 직접 제어할 수 있게 해줍니다. 예를 들어, 처음부터 끝까지 보거나 1960년대에만 집중할 수도 있어요. 이 연습 문제에서는 주(STATE)별 발사 건수의 선형 차트 아래에 슬라이더 바를 추가해 보겠습니다.
plotly, crosstalk, dplyr와 state_launches 데이터셋이 로드되어 있어요.
이 연습은 강의의 일부입니다
R로 배우는 plotly 중급 인터랙티브 데이터 시각화
연습 안내
state_code와launch_year별 발사 횟수를 계산하고, 이를SharedData객체로 변환하세요. 결과를shared_launches에 저장하세요.shared_launches를 사용해 시간에 따라 각 주의 발사 횟수(n)를 보여주는 선형 차트를 만드세요. 이 차트를launch_ts로 저장하세요. 색상은state_code를 나타내도록 하세요.- 차트 아래에 연도를 필터링하는 슬라이더를 배치하세요. 이 슬라이더의 라벨은
"Year"로 하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
count(___, ___) %>%
___()
# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
___(x = ___, y = ___, color = ___) %>%
___()
# Add a slider below the chart to filter the years displayed
___(list(___,
___(id = "time", label = ___,
sharedData = ___, column = ___)
))