App 3: Nomi più popolari, Redux
Ottimo! Speriamo ti sia piaciuto creare l’app che mostra i nomi più popolari con un grafico a colonne. Concludiamo il capitolo migliorando l’app che abbiamo costruito prima, aggiungendo una tab con una tabella che mostra i 10 nomi più diffusi. La tua app finale dovrebbe assomigliare allo screenshot qui sotto.
Nota che ti abbiamo fornito una funzione get_top_names() per estrarre i primi 10 nomi per un dato year e sex. Puoi ottenere i 10 nomi maschili più popolari per l’anno 2000 usando get_top_names(2000, "M").
Questo esercizio fa parte del corso
Creare applicazioni web con Shiny in R
Istruzioni dell'esercizio
- Il codice fornito è quello dell’app che hai costruito nell’esercizio precedente. Modificalo per aggiungere un output nel server che mostri una tabella con i nomi più popolari.
- Disponi i Risultati del grafico e della tabella nell’UI come tabs.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
# 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)