App 3: Nomes de Bebês Populares (Redux)
Muito bom! Esperamos que você tenha curtido criar aquele app que exibe nomes de bebês populares em um gráfico de colunas. Vamos encerrar este capítulo aprimorando o app que você construiu antes, adicionando uma aba com uma tabela mostrando os 10 nomes de bebês mais populares. Seu app final deve se parecer visualmente com a captura de tela abaixo.
Observe que fornecemos a função get_top_names() para extrair os 10 nomes mais populares para um determinado year e sex. Você pode obter os 10 nomes masculinos mais populares do ano 2000 usando get_top_names(2000, "M").
Este exercício faz parte do curso
Construindo Aplicações Web com Shiny em R
Instruções do exercício
- O código fornecido é do app que você criou no exercício anterior. Modifique esse código para adicionar uma saída no servidor que exiba uma tabela com os nomes populares.
- Organize as Saídas de gráfico e tabela na UI como abas.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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)