Yıl seçmek için bir slider girişi ekle
Slider girdileri sayısal girişler için harikadır; hem kullanıcıların bir değer aralığından seçim yapmasını istediğinde hem de sabit bir seçenek kümesinden tek bir değer seçmeleri gerektiğinde kullanışlıdır; ama selectInput() kullanmaktan daha yaratıcı olmak istediğinde özellikle idealdir.
babynames içinde mevcut belirli bir yılı seçmek için bir slider ekleyerek, bir yıl için en popüler 10 ismi gösteren uygulamanı ayarla.
Bu egzersiz
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
- Kullanıcıların 1900 ile 2010 arasında bir yıl seçmesine izin veren ve varsayılanı 1900 olan, adı "year" olan bir slider girişi ekle.
- Sunucu kodunu, yalnızca 1900 yerine seçilen yıl için en popüler 10 ismi alacak şekilde güncelle
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
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)