외계인 목격: 출력 추가하기
이제 대시보드에 입력 요소가 마련되었으니, 실제로 보고서를 통해 보고된 UFO 목격 정보를 확인할 수 있도록 출력 요소를 만들어 보세요.
출력은 두 가지예요. 플롯과 테이블입니다. 플롯은 선택한 주(state)와 기간에 대해, 모양(shape)별 목격 건수를 보여줘야 해요. 테이블은 선택한 주와 기간에 대해, 모양(shape)별로 목격 건수와 함께 평균, 중앙값, 최소, 최대 목격 시간(duration_sec)을 보여줘야 해요. 이를 위해 dplyr 또는 원하는 방법을 사용해 usa_ufo_sightings 데이터를 가공해야 합니다.
이 연습은 강의의 일부입니다
R로 Shiny 웹 애플리케이션 만들기
연습 안내
선택한 주와 기간에 대해 모양(shape)별 UFO 목격 건수를 보여주는 바 플롯 출력을
'shapes'라는 이름으로 추가하세요.서버에서 해당 출력을 생성하고, UI에도 표시되도록 하세요.
모양(shape)별로 목격 건수와 평균, 중앙값, 최소, 최대 목격 시간(duration)을 보여주는 테이블 출력을
'duration_table'이라는 이름으로 추가하세요. 이 테이블은 선택한 주와 기간의 데이터만 보여야 합니다.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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)