Avistări de OZN-uri: adaugă rezultate
Acum că tabloul de bord are elementele de intrare configurate, e momentul să construiești rezultatele pentru a vizualiza informații despre avistările de OZN-uri raportate.
Vor fi două rezultate: un grafic și un tabel. Graficul trebuie să afișeze numărul de avistări, pe formă, pentru statul și perioada de timp selectate. Tabelul trebuie să afișeze, pentru statul și perioada de timp selectate, numărul de avistări, plus durata medie, mediană, minimă și maximă (duration_sec) a avistărilor. Vei folosi dplyr sau o altă metodă la alegere pentru a prelucra datele din usa_ufo_sightings.
Acest exercițiu face parte din cursul
Crearea aplicațiilor web cu Shiny în R
Instrucțiuni pentru exercițiu
Adaugă un rezultat de tip grafic cu bare, numit
'shapes', care să afișeze numărul de OZN-uri avistare, pe formă, pentru statul și perioada de timp selectate.Asigură-te că creezi rezultatul în server și că îl afișezi și în UI.
Adaugă un rezultat de tip tabel, numit
'duration_table', care să afișeze, grupat după formă, numărul de OZN-uri avistare, plus durata medie, mediană, minimă și maximă a avistărilor. Tabelul trebuie să afișeze doar datele corespunzătoare statului și perioadei de timp selectate.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
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)