Pozorování UFO: přidání výstupů
Teď, když má dashboard vstupy, je čas přidat výstupy, aby bylo vidět informace o nahlášených pozorováních UFO.
Budou dva: graf a tabulka. Graf by měl zobrazovat počet pozorování podle tvaru pro vybraný stát a časové období. Tabulka by měla pro vybraný stát a časové období zobrazovat počet pozorování a také průměrnou, mediánovou, minimální a maximální dobu trvání (duration_sec) jednotlivých pozorování. K tomu budeš potřebovat dplyr nebo jiný způsob, jak upravit data usa_ufo_sightings.
Toto cvičení je součástí kurzu
Tvorba webových aplikací se Shiny v R
Pokyny k cvičení
Přidej sloupcový graf s názvem výstupu
'shapes', který zobrazuje počet pozorovaných UFO podle tvaru pro vybraný stát a časové období.Nezapomeň výstup definovat na straně serveru a také ho zobrazit v UI.
Přidej tabulkový výstup s názvem
'duration_table', který zobrazuje počet pozorovaných UFO podle tvaru a také průměrnou, mediánovou, minimální a maximální dobu trvání pozorování. Tabulka by měla zobrazovat pouze data pro vybraný stát a časové období.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
ui <- fluidPage(
titlePanel("UFO Sightings"),
sidebarLayout(
sidebarPanel(
selectInput("state", "Choose a U.S. state:", choices = unique(usa_ufo_sightings$state)),
dateRangeInput("dates", "Choose a date range:",
start = "1920-01-01",
end = "1950-01-01")
),
mainPanel(
# Add plot output named 'shapes'
# Add table output named 'duration_table'
)
)
)
server <- function(input, output) {
# CODE BELOW: Create a plot output of sightings by shape,
# For the selected inputs
# CODE BELOW: Create a table output named 'duration_table', by shape,
# of # sighted, plus mean, median, max, and min duration of sightings
# for the selected inputs
}
shinyApp(ui, server)