НачатьНачать бесплатно

Добавьте цвета на график: переключатели

Переключатели (radio buttons) используются, когда нужно предложить пользователю несколько вариантов и попросить выбрать один из них. У них есть параметр choices, который задаёт доступные варианты выбора, и аргумент selected, который определяет, какой вариант выбран по умолчанию. Обратите внимание: параметра value здесь нет, однако selected выполняет схожую роль.

Это упражнение является частью курса

Примеры использования: создание веб-приложений с Shiny в R

Посмотреть курс

Инструкции к упражнению

Код приложения Shiny из предыдущего упражнения уже предоставлен. Ваша задача — добавить переключатели, чтобы пользователь мог выбрать цвет для графика. А именно:

  • Добавьте переключатели в UI с идентификатором "color", меткой "Point color" и четырьмя вариантами: "blue", "red", "green", "black".
  • Добавьте код в серверную часть так, чтобы точки на графике отображались в цвете, выбранном в переключателях (строка 22).

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# Define UI for the application
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("title", "Title", "GDP vs life exp"),
      numericInput("size", "Point size", 1, 1),
      checkboxInput("fit", "Add line of best fit", FALSE),
      # Add radio buttons for colour
      ___("color", ___, ___)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    p <- ggplot(gapminder, aes(gdpPercap, lifeExp)) +
      # Use the value of the color input as the point colour
      geom_point(size = input$size, col = input$___) +
      scale_x_log10() +
      ggtitle(input$title)
    
    if (input$fit) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

# Run the application
shinyApp(ui = ui, server = server)
Редактировать и запускать код