民間による宇宙開発競争をアニメーションで見る
近年、宇宙開発の主役は政府機関から民間企業へと移りつつあります。この演習では、この「新しい」宇宙開発競争の変遷を探るアニメーションを作成します。データセット private_launches には次の変数が含まれます。
tag- 打ち上げIDyear- 打ち上げ年agency_code- 機関の略称agency_name- 機関名agency_type- 老舗のprivate企業かstartupかcategory- 打ち上げの成否。成功はO、失敗はF
plotly、dplyr、tidyr、purrr はすでに読み込まれています。
この演習はコースの一部です
R で学ぶ中級インタラクティブ可視化（plotly）
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Complete the private_launches data set
annual_launches <- private_launches %>%
count(year, agency_name) %>%
___(___, ___, ___)