ПочатиПочніть безкоштовно

Додайте кольори до вашого графіка: радіокнопки

Радіокнопки використовують, коли потрібно запропонувати користувачу кілька варіантів і попросити обрати один. Вони мають параметр choices, який задає різні варіанти вибору, та аргумент selected, який визначає, який варіант вибрано спочатку. Зверніть увагу, що параметра value немає, хоча можна вважати, що selected виконує подібну роль.

Ця вправа є частиною курсу

Case Studies: створення вебзастосунків із Shiny в R

Переглянути курс

Інструкції до вправи

Надано код Shiny-застосунку з попередньої вправи. Ваше завдання — додати радіокнопки, які дадуть користувачу змогу вибрати колір для графіка. Зокрема:

  • Додайте до UI радіокнопки з ID «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)
Редагувати та запускати код