Verken de Mental Health in Tech Survey 2014

Laat je niet afschrikken: in deze oefening bouw je in één keer de volledige app (op het aangepaste foutbericht na)!

Voor deze app gebruik je de vragen "Denk je dat het bespreken van een mentale gezondheidskwestie met je werkgever negatieve gevolgen zou hebben?" (de variabele mental_health_consequence) en "Vind je dat je werkgever mentale gezondheid even serieus neemt als lichamelijke gezondheid?" (mental_vs_physical) als multi-selectie-invoer, en toon je daarna een histogram van de Age van respondenten. Om de keuzemogelijkheden voor deze variabelen te zien, kun je ze in de console count()en.

Onthoud dat de app er, als je klaar bent, zo uit zal zien (inclusief de lege plot): An app displaying questions from a Mental Health survey

shiny, ggplot2, dplyr en de gegevensset mental_health_survey zijn al voor je geladen.

Deze oefening maakt deel uit van de cursus

Webapplicaties bouwen met Shiny in R

Cursus bekijken

Oefeninstructies

UI:
- Voeg een passende titel toe aan de app.
- Voeg een checkboxGroupInput() toe. Neem een standaardwaarde op voor het argument selected.
- Voeg een pickerInput() toe met het argument multiple ingesteld op TRUE.
- Voeg een plotOutput() toe in het hoofdpaneel.
Server:
- Voeg een output toe die een histogram toont van de Age van respondenten, gefilterd op basis van de twee inputs.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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)

Code bewerken en uitvoeren