2014년 Tech 분야 정신 건강 설문 탐색하기

긴장하지 않으셔도 됩니다. 이번 연습에서는 이 앱 전체(사용자 지정 오류 메시지 제외)를 한 번에 만들어 볼 거예요!

이 앱에서는 "고용주와 정신 건강 문제를 논의하는 것이 부정적인 결과를 초래할 것이라고 생각하나요?"(변수 mental_health_consequence)와 "고용주는 정신 건강을 신체 건강만큼 진지하게 다룬다고 느끼시나요?"(mental_vs_physical)라는 질문을 다중 선택 입력으로 사용하고, 응답자의 Age 에 대한 히스토그램을 표시합니다. 각 변수의 선택지를 확인하려면 콘솔에서 count() 로 개수를 확인해 보세요.

완성하면 앱은 다음과 같이 보입니다(빈 그래프 포함): An app displaying questions from a Mental Health survey

shiny, ggplot2, dplyr, 그리고 mental_health_survey 데이터셋은 이미 불러와 드렸습니다.

이 연습은 강의의 일부입니다

R로 Shiny 웹 애플리케이션 만들기

강의 보기

연습 안내

UI:
- 앱에 알맞은 제목을 추가하세요.
- checkboxGroupInput() 을 추가하세요. selected 인자에 기본값을 포함하세요.
- pickerInput() 을 추가하고 multiple 인자를 TRUE 로 설정하세요.
- 메인 패널에 plotOutput() 을 추가하세요.
Server:
- 두 입력으로 필터링한 응답자의 Age 에 대한 히스토그램을 출력으로 표시하세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

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)

코드 편집 및 실행