Uygulama 3: Popüler Bebek İsimleri - Yeniden
Harika! Popüler bebek isimlerini sütun grafiği olarak gösteren uygulamayı yapmaktan keyif aldığını umuyoruz. Bu bölümü, daha önce oluşturduğumuz uygulamayı geliştirerek kapatalım: sekme olarak en popüler 10 bebek ismini gösteren bir tablo ekleyeceksin. Son uygulaman, aşağıdaki ekran görüntüsüne görsel olarak benzemeli.
Belirli bir year ve sex için en popüler 10 ismi çıkarmak üzere sana get_top_names() fonksiyonunu verdik. Örneğin 2000 yılı için en popüler 10 erkek ismini get_top_names(2000, "M") ile alabilirsin.
Bu egzersiz
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
- Sağlanan kod, bir önceki egzersizde oluşturduğun uygulamaya aittir. Bu kodu, sunucuya popüler isimleri tablo olarak gösterecek bir çıktı eklemek için değiştir.
- Grafik ve tablo çıktısını, UI içinde sekme olarak yerleştir.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# MODIFY this app (built in the previous exercise)
ui <- fluidPage(
titlePanel("Most Popular Names"),
sidebarLayout(
sidebarPanel(
selectInput('sex', 'Select Sex', c("M", "F")),
sliderInput('year', 'Select Year', min = 1880, max = 2017, value = 1900)
),
mainPanel(
plotOutput('plot')
)
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
top_names_by_sex_year <- get_top_names(input$year, input$sex)
ggplot(top_names_by_sex_year, aes(x = name, y = prop)) +
geom_col()
})
}
shinyApp(ui = ui, server = server)