Apparitions d’extraterrestres : ajouter des sorties
Maintenant que le tableau de bord a des entrées, vous allez créer les sorties pour visualiser les informations sur les signalements d’OVNI.
Rappelez-vous qu’il y en aura deux : un graphique et un tableau. Le graphique doit afficher, par forme, le nombre d’observations pour l’État et la période sélectionnés. Le tableau doit afficher, pour l’État et la période sélectionnés, le nombre d’observations, ainsi que la durée moyenne, médiane, minimale et maximale (duration_sec) des observations. Pour cela, utilisez dplyr (ou une autre méthode de votre choix) pour manipuler les données usa_ufo_sightings.
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
Ajoutez une sortie de diagramme en barres nommée
'shapes', affichant le nombre d’OVNI observés, par forme, pour l’État et la période sélectionnés.Veillez à créer la sortie dans le serveur, puis à l’afficher dans l’UI.
Ajoutez une sortie de tableau nommée
'duration_table', qui affiche, par forme, le nombre d’OVNI observés, ainsi que les durées moyenne, médiane, minimale et maximale des observations. Notez que le tableau doit uniquement présenter les données pour l’État et la période sélectionnés.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
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)