國家 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 %>%
___(___, ___, ___) %>%
___() %>%
___()