Alien-Sichtungen: Ausgaben hinzufügen

Jetzt, da das Dashboard Inputs hat, solltest du die Ausgaben bauen, um wirklich Informationen über die gemeldeten UFO-Sichtungen zu sehen.

Erinnere dich: Es gibt zwei Ausgaben, ein Diagramm und eine Tabelle. Das Diagramm soll für das ausgewählte Bundesland und den Zeitraum die Anzahl der Sichtungen nach Form (shape) zeigen. Die Tabelle soll für das ausgewählte Bundesland und den Zeitraum die Anzahl der Sichtungen sowie die durchschnittliche, mediane, minimale und maximale Dauer (duration_sec) der Sichtungen anzeigen. Dafür musst du dplyr verwenden (oder eine Methode deiner Wahl), um die Daten usa_ufo_sightings aufzubereiten.

Diese Übung ist Teil des Kurses

Webanwendungen mit Shiny in R entwickeln

Kurs anzeigen

Anleitung zur Übung

Füge eine Balkendiagramm-Ausgabe mit dem Namen 'shapes' hinzu, die die Anzahl der UFO-Sichtungen nach Form (shape) für das ausgewählte Bundesland und den Zeitraum zeigt.

Stelle sicher, dass du die Ausgabe im Server erstellst und sie auch im UI anzeigst.
Füge eine Tabellen-Ausgabe mit dem Namen 'duration_table' hinzu, die nach Form (shape) die Anzahl der UFO-Sichtungen sowie die durchschnittliche, mediane, minimale und maximale Dauer der Sichtungen zeigt. Beachte, dass die Tabelle nur Daten für das ausgewählte Bundesland und den Zeitraum enthalten soll.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

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)

Code bearbeiten und ausführen