CommencezCommencez gratuitement

Ajoutez des couleurs à votre graphique : boutons radio

Les boutons radio servent à présenter plusieurs options à l'utilisateur et à lui demander d'en choisir une. Ils ont un paramètre choices qui définit les différentes options offertes, et un argument selected qui précise quelle option est sélectionnée au départ. Notez qu'il n'y a pas de paramètre value, même si selected joue un rôle similaire.

Cette activité fait partie du cours

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

Voir le cours

Instructions de l’exercice

Le code de l'appli Shiny du précédent exercice est fourni. Votre tâche consiste à ajouter des boutons radio qui permettent à l'utilisateur de choisir la couleur à utiliser pour le graphique. Plus précisément :

  • Ajoutez des boutons radio dans l'interface avec l'ID "color", l'étiquette "Point color" et quatre choix : "blue", "red", "green", "black".
  • Ajoutez du code dans le serveur pour que les points du graphique utilisent la couleur sélectionnée dans les boutons radio (ligne 22).

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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