출력 업데이트(server)

거의 다 왔어요! 마지막 단계는 사용자가 입력한 name에 대해, year 대비 prop의 선 그래프를 그리고 sex로 색을 구분해 출력하도록 플롯 출력을 업데이트하는 것입니다. 아래 그래프 템플릿을 참고해 플롯을 만들어 보세요:

ggplot(subset(babynames, name == "David")) +
  geom_line(aes(x = year, y = prop, color = sex))

server에서 foo라는 이름의 사용자 입력은 input$foo로 접근할 수 있음을 기억하세요. shiny와 ggplot2 패키지, 그리고 babynames 데이터셋은 이미 로드되어 있습니다.

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

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

강의 보기

연습 안내

renderPlot() 안에 그래프 코드를 추가하세요. 하드코딩된 이름(name == "David")을 사용자가 입력한 이름으로 바꾸는 것을 잊지 마세요.

실습형 인터랙티브 연습

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

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),
  sidebarLayout(
    sidebarPanel(textInput('name', 'Enter Name', 'David')),
    mainPanel(plotOutput('trend'))
  )
)

server <- function(input, output, session) {
  output$trend <- renderPlot({
    # CODE BELOW: Update to display a line plot of the input name
    ggplot()
    
  })
}

shinyApp(ui = ui, server = server)

코드 편집 및 실행