Uzaylı gözlemleri: çıktılar ekle
Kontrol panelinde artık girdiler olduğuna göre, raporlanan UFO gözlemleri hakkında gerçekten bilgi görebilmen için çıktıları oluşturmalısın.
İki çıktı olacak: bir grafik ve bir tablo. Grafik, seçilen eyalet ve zaman aralığı için her bir şekle göre gözlemlenen sayıyı göstermeli. Tablo ise, seçilen eyalet ve zaman aralığı için şekle göre gözlemlenen sayı ile birlikte gözlemlerin süresinin (duration_sec) ortalama, medyan, minimum ve maksimum değerlerini göstermeli. Bunu yapmak için usa_ufo_sightings verisini dplyr (veya seçtiğin başka bir yöntem) ile dönüştürmen gerekecek.
Bu egzersiz, kursun bir parçasıdır
R ile Shiny Kullanarak Web Uygulamaları Geliştirme
Egzersiz talimatları
Seçilen eyalet ve zaman aralığı için şekle göre gözlemlenen UFO sayısını gösteren,
'shapes'adlı bir çubuk grafik çıktısı ekle.Bu çıktıyı hem server tarafında oluşturduğundan hem de UI'da görüntülediğinden emin ol.
Şekle göre gözlemlenen UFO sayısını ve gözlemlerin süresinin ortalama, medyan, minimum ve maksimum değerlerini gösteren
'duration_table'adlı bir tablo çıktısı ekle. Tablo yalnızca seçilen eyalet ve zaman aralığındaki verileri göstermelidir.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
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)