Zacznij terazZacznij za darmo

Dodaj kolory do wykresu: przyciski opcji

Przyciski opcji (radio buttons) stosuje się wtedy, gdy chcesz dać użytkownikowi kilka możliwości do wyboru – ale tak, żeby mógł zaznaczyć tylko jedną. Mają parametr choices, który definiuje dostępne opcje, oraz argument selected, który określa, która opcja jest zaznaczona na początku. Zwróć uwagę, że nie ma tu parametru value – rolę podobną do niego pełni właśnie selected.

To ćwiczenie jest częścią kursu

Studia przypadków: tworzenie aplikacji webowych w Shiny w R

Zobacz kurs

Instrukcje do ćwiczenia

Kod aplikacji Shiny z poprzedniego ćwiczenia jest już dostępny. Twoim zadaniem jest dodanie przycisków opcji, które pozwolą użytkownikowi wybrać kolor punktów na wykresie. Konkretnie:

  • Dodaj przyciski opcji do interfejsu użytkownika (UI) z identyfikatorem "color", etykietą "Point color" oraz czterema opcjami: "blue", "red", "green", "black".
  • Dodaj kod do serwera, tak aby punkty na wykresie miały kolor wybrany za pomocą przycisków opcji (wiersz 22).

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# 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)
Edytuj i uruchom kod