Explora la encuesta de salud mental en tecnología de 2014
No te intimides: en este ejercicio vas a construir toda la app (salvo el mensaje de error personalizado) de una sola vez.
En esta app, usarás las preguntas «¿Crees que hablar de un problema de salud mental con tu empleador tendría consecuencias negativas?» (la variable mental_health_consequence) y «¿Consideras que tu empleador se toma la salud mental tan en serio como la salud física?» (mental_vs_physical) como entradas de selección múltiple, y luego mostrarás un histograma de la Age de las personas encuestadas. Para ver las opciones de estas variables, hazles un count() en la consola.
Recuerda que, cuando termines, la app se verá así (incluido el gráfico en blanco):
shiny, ggplot2, dplyr y el conjunto de datos mental_health_survey ya se han cargado por ti.
Este ejercicio forma parte del curso
Creación de aplicaciones web con Shiny en R
Instrucciones del ejercicio
- UI:
- Añade un título adecuado a la app.
- Añade un
checkboxGroupInput(). Incluye un valor por defecto en el argumentoselected. - Añade un
pickerInput()con el argumentomultipleestablecido enTRUE. - Añade un
plotOutput()en el panel principal.
- Server:
- Añade una salida que muestre un histograma de la
Agede las personas encuestadas, filtrado por las dos entradas.
- Añade una salida que muestre un histograma de la
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
ui <- fluidPage(
# CODE BELOW: Add an appropriate title
sidebarPanel(
# CODE BELOW: Add a checkboxGroupInput
# CODE BELOW: Add a pickerInput
),
mainPanel(
# CODE BELOW: Display the output
)
)
server <- function(input, output, session) {
# CODE BELOW: Build a histogram of the age of respondents
# Filtered by the two inputs
}
shinyApp(ui, server)