Obserwacje UFO: dodawanie wyników
Skoro panel ma już dane wejściowe, czas zbudować wyniki, które pokażą informacje o zgłoszonych obserwacjach UFO.
Przypomnienie: będą dwa elementy – wykres i tabela. Wykres powinien przedstawiać liczbę obserwacji według kształtu dla wybranego stanu i okresu. Tabela powinna pokazywać – dla wybranego stanu i okresu – liczbę obserwacji oraz średni, medianowy, minimalny i maksymalny czas trwania (duration_sec) poszczególnych obserwacji. Do przekształcenia danych usa_ufo_sightings możesz użyć pakietu dplyr lub innej wybranej metody.
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
Dodaj wykres słupkowy o nazwie
'shapes', przedstawiający liczbę obserwacji UFO według kształtu dla wybranego stanu i okresu.Pamiętaj, aby utworzyć wynik po stronie serwera i wyświetlić go również w interfejsie użytkownika (UI).
Dodaj tabelę o nazwie
'duration_table', która będzie pokazywać – z podziałem według kształtu – liczbę obserwacji UFO oraz średni, medianowy, minimalny i maksymalny czas trwania obserwacji. Tabela powinna wyświetlać dane wyłącznie dla wybranego stanu i okresu.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)