宇宙人目撃情報：出力を追加する

ダッシュボードに入力がそろったので、報告されたUFO目撃情報を実際に確認できるように出力を作成しましょう。

出力はプロットとテーブルの2つです。プロットは、選択した州と期間について、形状別の目撃数を表示します。テーブルは、選択した州と期間について、目撃数に加えて、目撃の継続時間（duration_sec）の平均・中央値・最小値・最大値を表示します。これには、dplyr などを用いて usa_ufo_sightings データを加工する必要があります。

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

Rで作るShiny Webアプリケーション

コースを見る

演習の手順

'shapes' という名前の棒グラフ出力を追加し、選択した州と期間について、形状ごとのUFO目撃数を表示してください。

サーバー側で出力を作成し、UIにも表示されるようにしてください。
'duration_table' という名前のテーブル出力を追加し、形状ごとにUFOの目撃数と、目撃の継続時間の平均・中央値・最小値・最大値を表示してください。なお、テーブルは選択した州と期間のデータのみを表示する必要があります。

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

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

ui <- fluidPage(
  titlePanel("UFO Sightings"),
  sidebarLayout(
    sidebarPanel(
      selectInput("state", "Choose a U.S. state:", choices = unique(usa_ufo_sightings$state)),
      dateRangeInput("dates", "Choose a date range:",
                     start = "1920-01-01",
                     end = "1950-01-01")
    ),
    mainPanel(
      # Add plot output named 'shapes'

      # Add table output named 'duration_table'

    )
  )
)

server <- function(input, output) {
  # CODE BELOW: Create a plot output of sightings by shape,
  # For the selected inputs

  
  
  
  
  # CODE BELOW: Create a table output named 'duration_table', by shape,
  # of # sighted, plus mean, median, max, and min duration of sightings
  # for the selected inputs

  
  
}

shinyApp(ui, server)

コードを編集して実行