Aplikace 3: Oblíbená jména Redux
Skvělá práce! Doufáme, že tě tvorba aplikace zobrazující oblíbená dětská jména jako sloupcový graf bavila. Pojďme tuto kapitolu zakončit vylepšením aplikace z předchozího cvičení — přidáme záložku s tabulkou zobrazující 10 nejoblíbenějších jmen. Výsledná aplikace by měla vypadat jako na snímku níže.
K dispozici máš funkci get_top_names(), která vrátí 10 nejoblíbenějších jmen pro zadaný year (rok) a sex (pohlaví). Například 10 nejoblíbenějších mužských jmen pro rok 2000 získáš pomocí get_top_names(2000, "M").
Toto cvičení je součástí kurzu
Tvorba webových aplikací se Shiny v R
Pokyny k cvičení
- Uvedený kód pochází z aplikace, kterou jsi sestavil/a v předchozím cvičení. Uprav ho tak, aby server obsahoval výstup pro zobrazení tabulky oblíbených jmen.
- Zobraz výstupy s grafem a tabulkou v UI jako záložky.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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)