Esplora il sondaggio Mental Health in Tech 2014
Niente paura: in questo esercizio costruirai l'intera app (tranne il messaggio di errore personalizzato) in un colpo solo!
Per questa app userai le domande "Pensi che discutere di un problema di salute mentale con il tuo datore di lavoro avrebbe conseguenze negative?" (variabile mental_health_consequence) e "Ritieni che il tuo datore di lavoro prenda la salute mentale seriamente quanto la salute fisica?" (mental_vs_physical) come input a selezione multipla, quindi visualizzerai un istogramma dell'età (Age) dei rispondenti. Per vedere le possibili scelte per queste variabili, usa count() nella console.
Ricorda che, una volta terminato, l'app avrà questo aspetto (incluso il grafico vuoto):
shiny, ggplot2, dplyr e il dataset mental_health_survey sono già stati caricati per te.
Questo esercizio fa parte del corso
Creare applicazioni web con Shiny in R
Istruzioni dell'esercizio
- UI:
- Aggiungi un titolo appropriato all'app.
- Aggiungi un
checkboxGroupInput(). Includi un valore predefinito per l'argomentoselected. - Aggiungi un
pickerInput()con l'argomentomultipleimpostato suTRUE. - Aggiungi un
plotOutput()nel pannello principale.
- Server:
- Aggiungi un output che mostri un istogramma dell'età (
Age) dei rispondenti, filtrato in base ai due input.
- Aggiungi un output che mostri un istogramma dell'età (
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
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)