Penampakan alien: tambahkan keluaran
Sekarang dasbor telah memiliki input, Anda perlu membangun keluaran agar benar-benar dapat melihat informasi tentang penampakan UFO yang dilaporkan.
Ingat akan ada dua keluaran: sebuah plot dan sebuah tabel. Plot harus menampilkan jumlah penampakan, menurut bentuk (shape), untuk negara bagian dan rentang waktu yang dipilih. Tabel harus menampilkan, untuk negara bagian dan rentang waktu yang dipilih, jumlah penampakan, serta rata-rata, median, minimum, dan maksimum durasi (duration_sec) dari penampakan. Ini akan memerlukan penggunaan dplyr, atau metode pilihan Anda, untuk memanipulasi data usa_ufo_sightings.
Latihan ini adalah bagian dari kursus
Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Tambahkan keluaran plot batang bernama 'shapes' yang menampilkan jumlah UFO yang terlihat, menurut shape, untuk negara bagian dan rentang waktu yang dipilih.
Pastikan Anda membuat keluaran tersebut di server, dan juga menampilkannya di UI.
Tambahkan keluaran tabel bernama 'duration_table' yang, menurut shape, menampilkan jumlah UFO yang terlihat, serta rata-rata, median, minimum, dan maksimum durasi penampakan. Perhatikan bahwa tabel hanya boleh menampilkan data untuk negara bagian dan rentang waktu yang dipilih.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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)