Kom igångKom igång gratis

Lägg till färger i diagrammet: radioknappar

Radioknappar används när du vill ge användaren flera alternativ att välja bland, men bara ett åt gången. De har en parameter choices som definierar de olika alternativen, och ett argument selected som anger vilket alternativ som är förvalt från början. Observera att det inte finns någon parameter value, men selected fyller en liknande roll.

Den här övningen är en del av kursen

Fallstudier: Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Koden för Shiny-appen från föregående övning finns redan på plats. Din uppgift är att lägga till radioknappar som låter användaren välja färg för diagrammet. Gör följande:

  • Lägg till radioknappar i UI:t med ID:t "color", etiketten "Point color" och fyra alternativ: "blue", "red", "green", "black".
  • Lägg till kod i servern så att punkterna i diagrammet får den färg som valts med radioknapparna (rad 22).

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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)
Redigera och kör kod