UFO-observationer: lägg till utdata
Nu när dashboarden har indata är det dags att bygga utdata så att du faktiskt kan se information om de rapporterade UFO-observationerna.
Det ska finnas två utdata: ett diagram och en tabell. Diagrammet ska visa antalet observationer per form, för det valda delstaten och tidsperioden. Tabellen ska visa, för den valda delstaten och tidsperioden, antalet observationer samt genomsnittlig, median-, minimi- och maximumduration (duration_sec) för observationerna. Det kräver att du använder dplyr, eller en valfri metod, för att bearbeta datamängden usa_ufo_sightings.
Den här övningen är en del av kursen
Bygg webbapplikationer med Shiny i R
Övningsinstruktioner
Lägg till ett stapeldiagram som utdata med namnet
'shapes', som visar antalet observerade UFO:n per form för den valda delstaten och tidsperioden.Se till att skapa utdata i servern och även visa det i UI:t.
Lägg till ett tabellutdata med namnet
'duration_table'som visar, grupperat efter form, antalet observerade UFO:n samt genomsnittlig, median-, minimi- och maximumduration för observationerna. Tabellen ska bara visa data för den valda delstaten och tidsperioden.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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)