始める無料で始める

宇宙開発競争のタイムライン

最初の「宇宙開発競争」は、アメリカ合衆国とソビエト連邦が宇宙飛行で世界の主導権を握ろうとしたことから始まりました。この競争は、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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
コードを編集して実行