Adaugă un slider pentru selectarea anului

Slider-ele sunt ideale pentru intrări numerice – atât atunci când vrei ca utilizatorii să aleagă dintr-un interval de valori, cât și atunci când trebuie să selecteze o valoare fixă dintr-un set de opțiuni, dar vrei ceva mai creativ decât un selectInput().

Modifică aplicația care afișează primele 10 nume pentru un an, adăugând un slider cu care utilizatorul să poată selecta un anumit an disponibil în babynames.

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Adaugă un slider input numit "year" pentru a permite utilizatorilor să selecteze un an între 1900 și 2010, cu valoarea implicită 1900.
Actualizează codul serverului pentru a obține primele 10 nume pentru anul selectat, nu doar pentru 1900.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)

Editează și rulează codul