Eksploracja ankiety Mental Health in Tech 2014

Nie daj się przestraszyć – w tym ćwiczeniu zbudujesz całą aplikację (bez niestandardowego komunikatu o błędzie) od razu!

W tej aplikacji wykorzystasz pytania „Czy uważasz, że poruszenie kwestii zdrowia psychicznego z pracodawcą miałoby negatywne konsekwencje?" (zmienna mental_health_consequence) oraz „Czy czujesz, że twój pracodawca traktuje zdrowie psychiczne równie poważnie jak fizyczne?" (mental_vs_physical) jako wejścia wielokrotnego wyboru, a następnie wyświetlisz histogram wieku (Age) respondentów. Aby zobaczyć dostępne opcje dla tych zmiennych, użyj funkcji count() w konsoli.

Przypomnij sobie, jak aplikacja będzie wyglądać po ukończeniu (łącznie z pustym wykresem): Aplikacja wyświetlająca pytania z ankiety dotyczącej zdrowia psychicznego

Biblioteki shiny, ggplot2, dplyr oraz zbiór danych mental_health_survey są już wczytane.

To ćwiczenie jest częścią kursu

Tworzenie aplikacji internetowych z Shiny w R

Zobacz kurs

Instrukcje do ćwiczenia

UI:
- Dodaj odpowiedni tytuł do aplikacji.
- Dodaj checkboxGroupInput(). Uwzględnij wartość domyślną dla argumentu selected.
- Dodaj pickerInput() z argumentem multiple ustawionym na TRUE.
- Dodaj plotOutput() w panelu głównym.
Serwer:
- Dodaj wyjście wyświetlające histogram wieku (Age) respondentów, przefiltrowanych według dwóch danych wejściowych.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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)

Edytuj i uruchom kod