우주 경쟁 타임라인
미국과 소련이 우주비행에서 세계적 주도권을 놓고 다투면서 "첫 번째" 우주 경쟁이 시작되었어요. 이 경쟁은 1969년 7월 20일, 유인 우주선인 아폴로 11호가 달에 착륙하면서 정점을 찍었습니다. 이 연습 문제에서는 첫 번째 우주 경쟁, 즉 국가별 우주비행 우위를 향한 경쟁을 요약하는 시계열 그래프를 만들어 보세요.
plotly, crosstalk, dplyr 패키지는 이미 로드되어 있습니다.
이 연습은 강의의 일부입니다
R로 배우는 plotly 중급 인터랙티브 데이터 시각화
연습 안내
state_launches데이터 프레임에서 새로운SharedData객체를 만드세요.- 각 주(
state_code)에 대해 연도(launch_year)별 발사 횟수를 보여주는 선 그래프를 만드세요. - 각 선은 서로 다른 색으로 표시하세요.
- 개별 주를 선택(즉, 하이라이트)할 수 있도록 설정하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# table of launches by year
state_launches <- launches %>%
filter(agency_type == "state") %>%
count(launch_year, state_code)
# create a ShareData object for plotting
shared_launches <- state_launches %>% ___(key = ___)
# Create a line chart for launches by state, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()