Dodaj suwak do wyboru roku
Suwaki świetnie sprawdzają się przy danych liczbowych – zarówno wtedy, gdy chcesz, żeby użytkownik wybrał wartość z zakresu, jak i wtedy, gdy ma wybrać konkretną wartość ze zbioru opcji, a zwykły selectInput() to dla ciebie za mało.
Zmodyfikuj aplikację wyświetlającą 10 najpopularniejszych imion dla danego roku, dodając suwak do wyboru konkretnego roku dostępnego w zbiorze babynames.
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
- Dodaj suwak o nazwie "year", który pozwoli użytkownikom wybrać rok z zakresu od 1900 do 2010, z domyślną wartością 1900.
- Zaktualizuj kod serwera tak, aby pobierał 10 najpopularniejszych imion dla wybranego roku, a nie tylko dla roku 1900
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)