Avvistamenti alieni: aggiungi gli output
Ora che il dashboard ha degli input, devi creare gli output per vedere davvero le informazioni sugli avvistamenti di UFO segnalati.
Ricorda che saranno due: un grafico e una tabella. Il grafico deve mostrare il numero di avvistamenti, per forma, per lo stato e l'intervallo temporale selezionati. La tabella deve mostrare, per lo stato e l'intervallo temporale selezionati, il numero di avvistamenti, oltre alla durata media, mediana, minima e massima (duration_sec) degli avvistamenti. Per farlo, dovrai usare dplyr, o un altro metodo a tua scelta, per manipolare i dati usa_ufo_sightings.
Questo esercizio fa parte del corso
Creare applicazioni web con Shiny in R
Istruzioni dell'esercizio
Aggiungi un output di tipo grafico a barre chiamato
'shapes', che mostri il numero di UFO avvistati, per forma, per lo stato e l'intervallo temporale selezionati.Assicurati di creare l' output nel server e di mostrarlo anche nella UI.
Aggiungi un output di tipo tabella chiamato
'duration_table'che mostri, per forma, il numero di UFO avvistati, oltre alla durata media, mediana, minima e massima degli avvistamenti. Nota che la tabella deve mostrare solo i dati per lo stato e l'intervallo temporale selezionati.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
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)