始める無料で始める

時間のためのスライダーを追加する

前のレッスンでは、各国・地域の打ち上げ数を年ごとにアニメーションで表示しました。スライダーバーはアニメーションに代わる方法で、どの期間に注目するかを自分で細かくコントロールできます。たとえば、最初から最後まで通して見ることも、1960年代に絞って見ることもできます。この演習では、国・地域別の打ち上げ数の折れ線グラフの下にスライダーバーを追加します。

plotly、crosstalk、dplyr、および state_launches データセットは読み込まれています。

この演習はコースの一部です

R で学ぶ中級インタラクティブ可視化（plotly）

コースを見る

演習の手順

  • state_code と launch_year ごとの打ち上げ数を集計し、これを SharedData オブジェクトに変換してください。結果は shared_launches に保存します。
  • shared_launches を使って、各国・地域の打ち上げ数（n）の推移を示す折れ線グラフを作成し、launch_ts として保存します。state_code を色で表現してください。
  • 表示する年を絞り込めるよう、グラフの下にスライダーを配置し、ラベルは "Year" とします。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
  count(___, ___) %>%
  ___()

# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
  ___(x = ___, y = ___, color = ___) %>%
  ___()  

# Add a slider below the chart to filter the years displayed
___(list(___,
    ___(id = "time", label = ___, 
        sharedData = ___, column = ___)
))
コードを編集して実行