Explorer l’enquête « Mental Health in Tech » 2014
Ne vous laissez pas impressionner : dans cet exercice, vous allez créer l’intégralité de cette application (sans le message d’erreur personnalisé) d’un seul coup !
Pour cette application, vous utiliserez les questions « Pensez-vous que discuter d’un problème de santé mentale avec votre employeur aurait des conséquences négatives ? » (la variable mental_health_consequence) et « Pensez-vous que votre employeur prend la santé mentale aussi au sérieux que la santé physique ? » (mental_vs_physical) comme entrées à sélection multiple, puis vous afficherez un histogramme de l’Age des répondant·e·s. Pour voir les modalités de ces variables, utilisez count() dans la console.
Rappelez-vous qu’une fois terminé, l’appli ressemblera à ceci (y compris le graphique vide) :
shiny, ggplot2, dplyr et le jeu de données mental_health_survey ont déjà été chargés pour vous.
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
- UI :
- Ajoutez un titre approprié à l’application.
- Ajoutez un
checkboxGroupInput(). Incluez une valeur par défaut pour l’argumentselected. - Ajoutez un
pickerInput()avec l’argumentmultipledéfini àTRUE. - Ajoutez un
plotOutput()dans le panneau principal.
- Server :
- Ajoutez une sortie qui affiche un histogramme de l’
Agedes répondant·e·s, filtré par les deux entrées.
- Ajoutez une sortie qui affiche un histogramme de l’
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
ui <- fluidPage(
# CODE BELOW: Add an appropriate title
sidebarPanel(
# CODE BELOW: Add a checkboxGroupInput
# CODE BELOW: Add a pickerInput
),
mainPanel(
# CODE BELOW: Display the output
)
)
server <- function(input, output, session) {
# CODE BELOW: Build a histogram of the age of respondents
# Filtered by the two inputs
}
shinyApp(ui, server)