국가 vs. 민간 발사
이전 그래픽을 보면 중국을 제외하고 전반적으로 발사 횟수가 감소한 듯 보였어요. 사실일까요? 아니면 우주 경쟁이 민간 시장으로 옮겨간 걸까요? 이 연습 문제에서는 시간에 따라 국가와 민간 기업의 발사 횟수를 비교해 이 질문을 탐색해 보세요.
plotly, crosstalk, dplyr 패키지는 이미 로드되어 있습니다.
이 연습은 강의의 일부입니다
R로 배우는 plotly 중급 인터랙티브 데이터 시각화
연습 안내
launches_by_year데이터 프레임에서 새로운SharedData객체를 생성하세요.- 시간(
launch_year)에 따른 발사 횟수를agency_type별로 나타내는 선 그래프를 만드세요. 색상으로agency_type을 구분하세요. agency_type을 선택(즉, 강조 표시)할 수 있도록 설정하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# table of launches by year and agency type
launches_by_year <- launches %>% count(launch_year, agency_type)
# create a ShareData object for plotting
shared_launches <- launches_by_year %>% ___(key = ___)
# create a line chart displaying launches by agency type, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()