App 3: Populära babynames Redux
Bra jobbat! Förhoppningsvis tyckte du om att bygga appen som visar populära babynames som ett stapeldiagram. Nu avslutar vi kapitlet genom att förbättra appen vi byggde tidigare – den här gången lägger vi till en tabell som visar de 10 populäraste babynames som en flik. Din färdiga app ska likna skärmbilden nedan.
Observera att vi har tillhandahållit funktionen get_top_names() för att hämta de 10 populäraste namnen för ett givet year och sex. Du kan hämta de 10 populäraste mansnamnen för år 2000 med get_top_names(2000, "M").
Den här övningen är en del av kursen
Bygg webbapplikationer med Shiny i R
Övningsinstruktioner
- Koden som visas är från appen du byggde i föregående övning. Ändra koden så att du lägger till utdata i servern för att visa en tabell med populära namn.
- Lägg ut diagram- och tabellutdata i användargränssnittet som flikar.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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)