Tambahkan slider input untuk memilih tahun
Slider input sangat cocok untuk masukan numerik, baik saat Anda ingin pengguna memilih dari rentang nilai maupun memilih nilai tetap dari serangkaian opsi, tetapi Anda ingin lebih kreatif daripada menggunakan selectInput().
Sesuaikan aplikasi Anda yang menampilkan 10 nama teratas untuk suatu tahun dengan menambahkan slider untuk memilih tahun tertentu yang tersedia di babynames.
Latihan ini adalah bagian dari kursus
Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
- Tambahkan slider input bernama "year" agar pengguna dapat memilih tahun antara 1900 dan 2010, dengan nilai bawaan 1900.
- Perbarui kode server untuk mengambil 10 nama teratas untuk tahun yang dipilih, bukan hanya 1900
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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)