Utforska Mental Health in Tech Survey 2014

Låt dig inte skrämmas – i den här övningen bygger du hela appen (förutom det anpassade felmeddelandet) på en gång!

I den här appen använder du frågorna "Tror du att det skulle få negativa konsekvenser att diskutera en psykisk ohälsofråga med din arbetsgivare?" (variabeln mental_health_consequence) och "Känner du att din arbetsgivare tar psykisk hälsa lika seriöst som fysisk hälsa?" (mental_vs_physical) som flervalsinmatningar, och visar sedan ett histogram över respondenternas Age. För att se svarsalternativen för dessa variabler kan du köra count() på dem i konsolen.

När du är klar kommer appen att se ut så här (inklusive det tomma diagrammet): En app som visar frågor från en undersökning om psykisk hälsa

shiny, ggplot2, dplyr och datamängden mental_health_survey har redan laddats in åt dig.

Den här övningen är en del av kursen

Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

UI:
- Lägg till en lämplig titel i appen.
- Lägg till en checkboxGroupInput(). Ange ett standardvärde för argumentet selected.
- Lägg till en pickerInput() med argumentet multiple satt till TRUE.
- Lägg till en plotOutput() i huvudpanelen.
Server:
- Lägg till ett utdata-element som visar ett histogram över respondenternas Age, filtrerat efter de två inmatningarna.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)

Redigera och kör kod