UFO目撃情報：タブレイアウト

今のままだと、グラフが表の上に重なって表示されていて少しごちゃついています。これはダッシュボードなので、2つの出力を分けて表示すると見やすくなるでしょう。

ダッシュボード作成の最後のステップとして、作成済みの plotOutput() と tableOutput() にタブレイアウトを追加してください。

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

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

コースを見る

演習の手順

タブパネルのレイアウトと2つのタブを追加してください。最初のタブにはプロット、2つ目のタブにはテーブルを配置します。タブ名は意味が伝わる名前であれば自由に決めてかまいません。

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

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

ui <- fluidPage(
  titlePanel("UFO Sightings"),
  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"
    )
  ),
  # MODIFY CODE BELOW: Create a tab layout for the dashboard
  mainPanel(
    plotOutput("shapes"),
    tableOutput("duration_table")
  )
)

server <- function(input, output) {
  output$shapes <- renderPlot({
    usa_ufo_sightings %>%
      filter(
        state == input$state,
        date_sighted >= input$dates[1],
        date_sighted <= input$dates[2]
      ) %>%
      ggplot(aes(shape)) +
      geom_bar() +
      labs(
        x = "Shape",
        y = "# Sighted"
      )
  })

  output$duration_table <- renderTable({
    usa_ufo_sightings %>%
      filter(
        state == input$state,
        date_sighted >= input$dates[1],
        date_sighted <= input$dates[2]
      ) %>%
      group_by(shape) %>%
      summarize(
        nb_sighted = n(),
        avg_duration_min = mean(duration_sec) / 60,
        median_duration_min = median(duration_sec) / 60,
        min_duration_min = min(duration_sec) / 60,
        max_duration_min = max(duration_sec) / 60
      )
  })
}

shinyApp(ui, server)

コードを編集して実行