外星人目擊：加入輸出

既然儀表板已有輸入控制，現在就建立輸出，實際查看回報的 UFO 目擊資訊。

回想會有兩種輸出：一個圖表與一個表格。圖表需要在所選州別與時間區間內，依照 shape 顯示目擊次數。表格則需要在所選州別與時間區間內，顯示每種 shape 的目擊次數，以及目擊持續時間（duration_sec）的平均數、中位數、最小值與最大值。你需要使用 dplyr（或你偏好的方法）來整理 usa_ufo_sightings 資料。

本練習屬於課程

使用 R 的 Shiny 建立網頁應用程式

檢視課程

練習說明

新增名為 'shapes' 的長條圖輸出，針對所選州別與時間區間，依照 shape 顯示 UFO 的目擊次數。

記得同時在 server 端建立該輸出，並在 UI 中顯示。
新增名為 'duration_table' 的表格輸出，依照 shape 顯示每種 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)

編輯並執行程式碼