Aplikacja 3: Popularne imiona niemowląt – wersja rozszerzona
Świetna robota! Mamy nadzieję, że budowanie aplikacji wyświetlającej popularne imiona niemowląt w postaci wykresu kolumnowego sprawiło ci przyjemność. Zakończmy ten rozdział, rozszerzając wcześniej zbudowaną aplikację o tabelę z 10 najpopularniejszymi imionami wyświetlaną jako zakładka. Gotowa aplikacja powinna wyglądać jak na zrzucie ekranu poniżej.
Zwróć uwagę, że udostępniliśmy funkcję get_top_names(), która zwraca 10 najpopularniejszych imion dla podanego year i sex. Aby uzyskać 10 najpopularniejszych imion męskich z roku 2000, użyj get_top_names(2000, "M").
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
- Podany kod pochodzi z aplikacji zbudowanej w poprzednim ćwiczeniu. Zmodyfikuj go, dodając do serwera wyjście wyświetlające tabelę popularnych imion.
- Ułóż wykres i tabelę w UI jako zakładki.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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)