Aggiorna l'output (server)
Ci sei quasi! L’ultimo passaggio è aggiornare l’output del grafico per mostrare un line plot di prop rispetto a year, colorato per sex, per il name inserito dall’utente. Puoi usare questo modello per creare il tuo grafico:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
Ricorda che un input utente chiamato foo è accessibile come input$foo nel server. Abbiamo già precaricato i pacchetti shiny e ggplot2, oltre al dataset babynames.
Questo esercizio fa parte del corso
Creare applicazioni web con Shiny in R
Istruzioni dell'esercizio
- Aggiungi il codice del grafico dentro
renderPlot(). Assicurati di sostituire il nome hard-coded (name == "David") con il nome inserito dall’utente.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
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)