Aktualizacja danych wyjściowych (serwer)
Już prawie gotowe! Ostatni krok to aktualizacja danych wyjściowych wykresu – chcemy wyświetlić wykres liniowy prop względem year, z podziałem kolorystycznym według sex, dla nazwy wprowadzonej przez użytkownika. Możesz skorzystać z poniższego szablonu:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
Pamiętaj, że do danych wejściowych o nazwie foo możesz odwołać się jako input$foo w server. Pakiety shiny i ggplot2 oraz zbiór danych babynames są już wczytane.
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
- Dodaj kod tworzący wykres wewnątrz
renderPlot(). Pamiętaj, aby zastąpić zakodowaną na stałe nazwę (name == "David") nazwą wprowadzoną przez użytkownika.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)