Aplikasi 3: Popular Baby Names Redux
Bagus! Semoga Anda menikmati membangun aplikasi yang menampilkan nama bayi populer sebagai diagram kolom. Mari kita menutup bab ini dengan meningkatkan aplikasi yang telah kita buat sebelumnya dengan menambahkan sebuah tabel yang menampilkan 10 nama bayi teratas sebagai sebuah tab. Aplikasi akhir Anda seharusnya terlihat seperti tangkapan layar di bawah ini.
Perhatikan bahwa kami telah menyediakan fungsi get_top_names() untuk mengekstrak 10 nama teratas untuk year dan sex tertentu. Anda dapat memperoleh 10 nama laki-laki teratas untuk tahun 2000 dengan get_top_names(2000, "M").
Latihan ini adalah bagian dari kursus
Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
- Kode yang disediakan adalah untuk aplikasi yang Anda bangun pada latihan sebelumnya. Ubah kode ini untuk menambahkan sebuah output pada server guna menampilkan tabel nama populer.
- Tata letak keluaran plot dan tabel di UI sebagai tab.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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)