앱 3: 인기 아기 이름 다시 만들기
좋아요! 인기 있는 아기 이름을 막대 그래프로 보여 주는 앱 만들기, 재미있으셨나요? 이번 장을 마무리하면서, 앞서 만든 앱에 상위 10개 아기 이름을 표로 보여 주는 탭을 추가해 개선해 보겠습니다. 최종 앱은 아래 스크린샷과 비슷한 형태가 되어야 합니다.
get_top_names() 함수를 제공해 드렸습니다. 이 함수는 주어진 year와 sex에 대한 상위 10개 이름을 추출합니다. 예를 들어 2000년도의 남성 이름 상위 10개는 get_top_names(2000, "M")으로 가져올 수 있습니다.
이 연습은 강의의 일부입니다
R로 Shiny 웹 애플리케이션 만들기
연습 안내
- 제공된 코드는 이전 연습 문제에서 만든 앱입니다. 이 코드를 수정해, 서버에 인기 이름을 표로 표시하는 출력을 추가하세요.
- UI에서 그래프와 표 결과물을 탭으로 배치하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# MODIFY this app (built in the previous exercise)
ui <- fluidPage(
titlePanel("Most Popular Names"),
sidebarLayout(
sidebarPanel(
selectInput('sex', 'Select Sex', c("M", "F")),
sliderInput('year', 'Select Year', min = 1880, max = 2017, value = 1900)
),
mainPanel(
plotOutput('plot')
)
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
top_names_by_sex_year <- get_top_names(input$year, input$sex)
ggplot(top_names_by_sex_year, aes(x = name, y = prop)) +
geom_col()
})
}
shinyApp(ui = ui, server = server)