国家 vs. 民間の打ち上げ
前のグラフによると、中国を除けば打ち上げ数は減少しているように見えます。本当にそうでしょうか？ それとも宇宙開発競争は民間市場に広がったのでしょうか？ この演習では、国家機関と民間企業による打ち上げ数を時系列で比較し、この問いを探ります。
plotly、crosstalk、dplyr パッケージはすでに読み込まれています。
この演習はコースの一部です
R で学ぶ中級インタラクティブ可視化（plotly）
演習の手順
launches_by_yearデータフレームから新しいSharedDataオブジェクトを作成します。agency_typeごとの時間経過（launch_year）における打ち上げ数を表す折れ線グラフを作成します。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 %>%
___(___, ___, ___) %>%
___() %>%
___()