Uppdatera utdata (server)

Nu är du nästan i mål! Det sista steget är att uppdatera plotutdata så att den visar ett linjediagram över prop mot year, färgat efter sex, för det name som användaren har angett. Du kan använda den här plotmallen för att skapa din plot:

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

Kom ihåg att en användarinmatning med namnet foo kan nås som input$foo i server. Paketen shiny och ggplot2 är redan inlästa, liksom datamängden babynames.

Den här övningen är en del av kursen

Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Lägg till plotkoden inuti renderPlot(). Se till att ersätta det hårdkodade namnet (name == "David") med det namn som användaren har angett.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)

Redigera och kör kod