太空競賽時間軸
「第一波」太空競賽始於美國與蘇聯爭相成為太空飛行領域的全球主導力量。這場競賽在 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 %>%
___(___, ___, ___) %>%
___() %>%
___()