Actualizează rezultatul (server)

Ești aproape gata! Ultimul pas este să actualizezi rezultatul grafic pentru a afișa un grafic liniar al prop față de year, colorat după sex, pentru name-ul introdus de utilizator. Poți folosi acest șablon pentru a crea graficul:

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

Reține că un input al utilizatorului numit foo poate fi accesat ca input$foo în server. Am pre-încărcat deja pachetele shiny și ggplot2, precum și setul de date babynames.

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Adaugă codul de reprezentare grafică în interiorul funcției renderPlot(). Asigură-te că înlocuiești numele hard-codat (name == "David") cu numele introdus de utilizator.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)

Editează și rulează codul