App 3: Nombres de bebés populares (Redux)
¡Genial! Esperamos que hayas disfrutado creando esa app que muestra los nombres de bebés populares en un gráfico de columnas. Cerremos este capítulo mejorando la app que construimos antes añadiendo una pestaña con una tabla que muestre los 10 nombres más frecuentes. Tu app final debería parecerse visualmente a la captura de pantalla de abajo.
Ten en cuenta que te proporcionamos una función get_top_names() para extraer los 10 nombres principales para un year y sex dados. Por ejemplo, puedes obtener los 10 nombres masculinos más populares del año 2000 con get_top_names(2000, "M").
Este ejercicio forma parte del curso
Creación de aplicaciones web con Shiny en R
Instrucciones del ejercicio
- El código proporcionado corresponde a la app que creaste en el ejercicio anterior. Modifica este código para añadir en el servidor una salida que muestre una tabla con los nombres populares.
- Organiza los resultados del gráfico y de la tabla en la UI como pestañas.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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)