Avistamientos de alienígenas: añade salidas
Ahora que el panel ya tiene entradas, deberías crear las salidas para ver realmente información sobre los avistamientos de ovnis reportados.
Recuerda que habrá dos: una gráfica y una tabla. La gráfica debe mostrar el número de avistamientos, por forma, para el estado y el periodo seleccionados. La tabla debe mostrar, para el estado y el periodo seleccionados, el número de avistamientos, además de la duración media, mediana, mínima y máxima (duration_sec) de los avistamientos. Para ello tendrás que usar dplyr, o el método que prefieras, para manipular los datos de usa_ufo_sightings.
Este ejercicio forma parte del curso
Creación de aplicaciones web con Shiny en R
Instrucciones del ejercicio
Añade una salida de gráfico de barras llamada
'shapes', que muestre el número de ovnis avistados, por forma, para el estado y el periodo seleccionados.Asegúrate de crear la salida en el servidor y también mostrarla en la UI.
Añade una salida de tabla llamada
'duration_table'que muestre, por forma, el número de ovnis avistados, además de la duración media, mediana, mínima y máxima de los avistamientos. Ten en cuenta que la tabla solo debe mostrar datos del estado y el periodo seleccionados.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
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)