Application 3 : Noms de bébé populaires, version améliorée
Super ! Nous espérons que vous avez apprécié créer cette application qui affiche les prénoms populaires sous forme d’histogramme. Terminons ce chapitre en améliorant l’application précédente en ajoutant un onglet contenant un tableau des 10 prénoms les plus donnés. Votre application finale devrait ressembler visuellement à la capture d’écran ci-dessous.
Notez que nous avons fourni une fonction get_top_names() pour extraire les 10 premiers prénoms pour une year et un sex donnés. Par exemple, vous pouvez obtenir les 10 prénoms masculins de l’an 2000 avec get_top_names(2000, "M").
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
- Le code fourni correspond à l’application que vous avez construite à l’exercice précédent. Modifiez ce code pour ajouter, côté serveur, un RÉSULTAT affichant un tableau des prénoms populaires.
- Disposez les RÉSULTATs du graphique et du tableau dans l’interface sous forme d’onglets.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# 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)