CommencerCommencer gratuitement

Ajoutez des couleurs à votre graphique : boutons radio

Les boutons radio sont utiles lorsque vous souhaitez proposer plusieurs options à l’utilisateur et lui demander d’en choisir une. Ils possèdent un paramètre choices qui définit les différentes options possibles, et un argument selected qui indique le choix sélectionné au départ. Notez qu’il n’existe pas de paramètre value, même si selected joue un rôle similaire.

Cet exercice fait partie du cours

Études de cas : créer des applications web avec Shiny en R

Afficher le cours

Instructions

Le code de l’application Shiny de l’exercice précédent est fourni. Votre tâche consiste à ajouter des boutons radio permettant à l’utilisateur de choisir la couleur du graphique. Plus précisément :

  • Ajoutez des boutons radio à l’UI avec l’ID "color", l’étiquette "Point color", et quatre choix : "blue", "red", "green", "black".
  • Ajoutez du code côté serveur pour que les points du graphique utilisent la couleur sélectionnée via les boutons radio (ligne 22).

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

# 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)
Modifier et exécuter le code