BaşlayınÜcretsiz Başlayın

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

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır
Kursu Görüntüle

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ı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

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)
Kodu Düzenle ve Çalıştır