Quan sát người ngoài hành tinh: thêm đầu ra
Bây giờ bảng điều khiển đã có input, bạn cần xây dựng các đầu ra để thật sự xem thông tin về các lần nhìn thấy UFO được báo cáo.
Hãy nhớ rằng sẽ có hai đầu ra: một biểu đồ và một bảng. Biểu đồ cần hiển thị số lượng được nhìn thấy, theo hình dạng, cho bang và khoảng thời gian đã chọn. Bảng cần hiển thị, cho bang và khoảng thời gian đã chọn, số lượng được nhìn thấy, cùng với thời lượng trung bình, trung vị, nhỏ nhất và lớn nhất (duration_sec) của các lần nhìn thấy. Việc này sẽ cần dùng dplyr, hoặc phương pháp bạn chọn, để xử lý dữ liệu usa_ufo_sightings.
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
Hướng dẫn bài tập
Thêm đầu ra biểu đồ cột tên
'shapes', hiển thị số lượng UFO được nhìn thấy, theo hình dạng, cho bang và khoảng thời gian đã chọn.Hãy chắc chắn tạo đầu ra trong server, và đồng thời hiển thị nó trong UI.
Thêm đầu ra bảng tên
'duration_table', theo từng hình dạng, hiển thị số lượng UFO được nhìn thấy, cùng với thời lượng trung bình, trung vị, nhỏ nhất và lớn nhất của các lần nhìn thấy. Lưu ý bảng chỉ nên hiển thị dữ liệu cho bang và khoảng thời gian đã chọn.
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(
titlePanel("UFO Sightings"),
sidebarLayout(
sidebarPanel(
selectInput("state", "Choose a U.S. state:", choices = unique(usa_ufo_sightings$state)),
dateRangeInput("dates", "Choose a date range:",
start = "1920-01-01",
end = "1950-01-01")
),
mainPanel(
# Add plot output named 'shapes'
# Add table output named 'duration_table'
)
)
)
server <- function(input, output) {
# CODE BELOW: Create a plot output of sightings by shape,
# For the selected inputs
# CODE BELOW: Create a table output named 'duration_table', by shape,
# of # sighted, plus mean, median, max, and min duration of sightings
# for the selected inputs
}
shinyApp(ui, server)