Füge einen Schieberegler hinzu, um das Jahr auszuwählen
Schieberegler eignen sich hervorragend für numerische Eingaben – sowohl wenn Nutzerinnen und Nutzer aus einem Wertebereich wählen sollen als auch wenn sie einen festen Wert aus einer Menge von Optionen auswählen sollen, du aber kreativer sein willst als mit einem selectInput().
Passe deine App, die die Top-10-Namen für ein Jahr anzeigt, an, indem du einen Schieberegler hinzufügst, um ein bestimmtes Jahr aus babynames auszuwählen.
Diese Übung ist Teil des Kurses
Webanwendungen mit Shiny in R entwickeln
Anleitung zur Übung
- Füge eine Slider-Eingabe mit dem Namen "year" hinzu, damit Nutzende ein Jahr zwischen 1900 und 2010 auswählen können; Standardwert: 1900.
- Aktualisiere den Server-Code, um die Top-10-Namen für das ausgewählte Jahr abzurufen statt nur für 1900
Interaktive Übung
Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.
ui <- fluidPage(
titlePanel("What's in a Name?"),
# Add select input named "sex" to choose between "M" and "F"
selectInput('sex', 'Select Sex', choices = c("F", "M")),
# CODE BELOW: Add slider input named 'year' to select years (1900 - 2010)
# Add plot output to display top 10 most popular names
plotOutput('plot_top_10_names')
)
server <- function(input, output, session){
# Render plot of top 10 most popular names
output$plot_top_10_names <- renderPlot({
# Get top 10 names by sex and year
top_10_names <- babynames %>%
filter(sex == input$sex) %>%
# MODIFY CODE BELOW: Filter for the selected year
filter(year == 1900) %>%
slice_max(prop, n = 10)
# Plot top 10 names by sex and year
ggplot(top_10_names, aes(x = name, y = prop)) +
geom_col(fill = "#263e63")
})
}
shinyApp(ui = ui, server = server)