Khám phá khảo sát Mental Health in Tech 2014

Đừng ngại, trong bài này bạn sẽ xây toàn bộ ứng dụng này (trừ thông báo lỗi tùy chỉnh) trong một lần!

Với ứng dụng này, bạn sẽ dùng các câu hỏi "Do you think that discussing a mental health issue with your employer would have negative consequences?" (biến mental_health_consequence) và "Do you feel that your employer takes mental health as seriously as physical health?" (mental_vs_physical) làm các đầu vào chọn nhiều, rồi hiển thị histogram của Age (tuổi) của người trả lời. Để xem các lựa chọn cho những biến này, hãy count() chúng trong console.

Hãy nhớ rằng khi hoàn tất, ứng dụng sẽ trông như thế này (bao gồm cả biểu đồ trống): An app displaying questions from a Mental Health survey

shiny, ggplot2, dplyr, và bộ dữ liệu mental_health_survey đã được nạp sẵn cho bạn.

Bài tập này là một phần của khóa học

Xây dựng ứng dụng web với Shiny trong R

Xem khóa học

Hướng dẫn bài tập

UI:
- Thêm một tiêu đề phù hợp cho ứng dụng.
- Thêm checkboxGroupInput(). Bao gồm giá trị mặc định cho đối số selected.
- Thêm pickerInput() với đối số multiple đặt thành TRUE.
- Thêm plotOutput() trong main panel.
Server:
- Thêm một output hiển thị histogram của Age của người trả lời, được lọc theo hai đầu vào.

Bài tập tương tác thực hành trực tiếp

Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.

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)

Chỉnh sửa và Chạy Mã