ComenzarEmpieza gratis

Añade colores a tu gráfico: botones de opción

Los botones de opción se usan cuando quieres ofrecer al usuario varias alternativas y que elija una. Tienen un parámetro choices que define las diferentes opciones entre las que el usuario puede elegir y un argumento selected que define cuál está seleccionada inicialmente. Ten en cuenta que no existe un parámetro value, aunque puedes pensar que selected cumple una función similar.

Este ejercicio forma parte del curso

Casos prácticos: crea aplicaciones web con Shiny en R

Ver curso

Instrucciones del ejercicio

Se proporciona el código de la app Shiny del ejercicio anterior. Tu tarea es añadir botones de opción que permitan al usuario elegir el color que se usará en el gráfico. En concreto:

  • Añade a la UI unos botones de opción con ID "color", la etiqueta "Point color" y cuatro opciones: "blue", "red", "green", "black".
  • Añade código en el servidor para que los puntos del gráfico tengan el color seleccionado en los botones de opción (línea 22).

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# Define UI for the application
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("title", "Title", "GDP vs life exp"),
      numericInput("size", "Point size", 1, 1),
      checkboxInput("fit", "Add line of best fit", FALSE),
      # Add radio buttons for colour
      ___("color", ___, ___)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    p <- ggplot(gapminder, aes(gdpPercap, lifeExp)) +
      # Use the value of the color input as the point colour
      geom_point(size = input$size, col = input$___) +
      scale_x_log10() +
      ggtitle(input$title)
    
    if (input$fit) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

# Run the application
shinyApp(ui = ui, server = server)
Editar y ejecutar código