Přidej posuvník pro výběr roku
Posuvníkové vstupy jsou skvělé pro číselné hodnoty – ať už chceš uživatelům umožnit vybrat hodnotu z rozsahu, nebo zvolit konkrétní hodnotu ze sady možností, ale nechceš se omezovat na selectInput().
Uprav svou aplikaci zobrazující 10 nejoblíbenějších jmen pro daný rok tak, aby obsahovala posuvník pro výběr konkrétního roku dostupného v datasetu babynames.
Toto cvičení je součástí kurzu
Tvorba webových aplikací se Shiny v R
Pokyny k cvičení
- Přidej posuvníkový vstup s názvem "year", který umožní uživatelům vybrat rok v rozmezí 1900 až 2010, s výchozí hodnotou 1900.
- Uprav kód serveru tak, aby načítal 10 nejoblíbenějších jmen pro vybraný rok místo pevně zadaného roku 1900.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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)