Aplicația 3: Cele mai populare nume de bebeluși – variantă îmbunătățită
Excelent! Sperăm că ți-a plăcut să construiești aplicația care afișează cele mai populare nume de bebeluși sub formă de grafic cu bare. Hai să încheiem acest capitol îmbunătățind aplicația creată anterior, adăugând un tabel cu primele 10 nume de bebeluși sub formă de tab. Aplicația finală ar trebui să arate similar cu captura de ecran de mai jos.
Rețineți că am furnizat funcția get_top_names() pentru a extrage primele 10 nume pentru un anumit year și sex. Poți obține primele 10 nume masculine pentru anul 2000 folosind get_top_names(2000, "M").
Acest exercițiu face parte din cursul
Crearea aplicațiilor web cu Shiny în R
Instrucțiuni pentru exercițiu
- Codul furnizat corespunde aplicației construite în exercițiul anterior. Modifică acest cod pentru a adăuga un rezultat în server care să afișeze un tabel cu numele populare.
- Afișează rezultatele graficului și tabelului în UI sub formă de tab-uri.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# 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)