开始使用免费开始使用

将不同的输出放在不同的选项卡中

当内容较多需要拆分时，选项卡非常有用。要创建选项卡，只需将 UI 元素包裹在 tabPanel() 函数中，并使用 title 参数为选项卡提供标题。

要让选项卡在 UI 中显示，需将多个选项卡面板分组到一个选项卡集"容器"中，即把所有选项卡面板包裹在 tabsetPanel() 中。

您的任务是为这个 Shiny 应用添加选项卡：将输入控件和下载按钮放在一个选项卡中，将图形放在另一个选项卡中，将表格放在第三个选项卡中。由于这只是视觉层面的修改，所有代码改动都只需在 UI 部分完成。

本练习是课程的一部分

案例研究：使用 R 的 Shiny 构建 Web 应用

查看课程

练习说明

  • 使用 tabsetPanel() 函数创建一个包含三个选项卡面板的容器：
    • 第一个选项卡用于输入控件，将其命名为 "Inputs"。
    • 第二个选项卡用于显示图形，将其命名为 "Plot"（第 16 行）。
    • 第三个选项卡用于显示表格，将其命名为 "Table"（第 21 行）。

交互式实操练习

通过完成这段示例代码来试试这个练习。

ui <- fluidPage(
    h1("Gapminder"),
    # Create a container for tab panels
    ___(
        # Create an "Inputs" tab
        tabPanel(
            title = ___,
            sliderInput(inputId = "life", label = "Life expectancy",
                        min = 0, max = 120,
                        value = c(30, 50)),
            selectInput("continent", "Continent",
                        choices = c("All", levels(gapminder$continent))),
            downloadButton("download_data")
        ),
        # Create a "Plot" tab
        ___(
            title = "Plot",
            plotOutput("plot")
        ),
        # Create "Table" tab
        ___(
            title = ___,
            DT::dataTableOutput("table")
        )
    )
)

server <- function(input, output) {
  filtered_data <- reactive({
    data <- gapminder
    data <- subset(
      data,
      lifeExp >= input$life[1] & lifeExp <= input$life[2]
    )
    if (input$continent != "All") {
      data <- subset(
        data,
        continent == input$continent
      )
    }
    data
  })
  
  output$table <- DT::renderDataTable({
    data <- filtered_data()
    data
  })

  output$download_data <- downloadHandler(
    filename = "gapminder_data.csv",
    content = function(file) {
      data <- filtered_data()
      write.csv(data, file, row.names = FALSE)
    }
  )

  output$plot <- renderPlot({
    data <- filtered_data()
    ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point() +
      scale_x_log10()
  })
}

shinyApp(ui, server)
编辑并运行代码