Avistamentos de alienígenas: adicionando saídas
Agora que o dashboard tem entradas, você deve construir as saídas para realmente ver informações sobre os avistamentos de OVNIs reportados.
Lembre-se de que serão duas: um gráfico e uma tabela. O gráfico deve mostrar o número de avistamentos, por formato (shape), para o estado e período selecionados. A tabela deve mostrar, para o estado e período selecionados, o número de avistamentos, além da duração média, mediana, mínima e máxima (duration_sec) dos avistamentos. Isso exigirá usar dplyr, ou outro método de sua preferência, para manipular os dados usa_ufo_sightings.
Este exercício faz parte do curso
Construindo Aplicações Web com Shiny em R
Instruções do exercício
Adicione uma saída de gráfico de barras chamada
'shapes', mostrando o número de OVNIs avistados, por formato (shape), para o estado e período selecionados.Certifique-se de criar a saída no server e também exibi-la na UI.
Adicione uma saída de tabela chamada
'duration_table', mostrando, por formato (shape), o número de OVNIs avistados, além da duração média, mediana, mínima e máxima dos avistamentos. Observe que a tabela deve mostrar apenas dados para o estado e período selecionados.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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)