Ausgabe aktualisieren (server)

Fast geschafft! Im letzten Schritt soll die Plot-Ausgabe so aktualisiert werden, dass ein Liniendiagramm von prop gegen year, eingefärbt nach sex, für den vom Nutzer eingegebenen name angezeigt wird. Du kannst diese Plot-Vorlage verwenden, um deinen Plot zu erstellen:

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

Zur Erinnerung: Eine Nutzereingabe mit dem Namen foo kannst du im server als input$foo ansprechen. Die Pakete shiny und ggplot2 sowie der Datensatz babynames sind bereits vorab geladen.

Diese Übung ist Teil des Kurses

Webanwendungen mit Shiny in R entwickeln

Kurs anzeigen

Anleitung zur Übung

Füge den Plot-Code in renderPlot() ein. Achte darauf, den fest kodierten Namen (name == "David") durch den vom Nutzer eingegebenen Namen zu ersetzen.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

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)

Code bearbeiten und ausführen