ÎncepețiÎncepe gratuit

Adaugă culori în grafic: butoane radio

Butoanele radio sunt folosite atunci când vrei să prezinți utilizatorului mai multe opțiuni și să îi ceri să aleagă una singură. Au un parametru choices care definește diferitele opțiuni din care utilizatorul poate alege și un argument selected care definește opțiunea selectată inițial. Reține că nu există un parametru value, însă poți considera că selected joacă un rol similar.

Acest exercițiu face parte din cursul

Studii de caz: Construirea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Codul pentru aplicația Shiny din exercițiul anterior este deja furnizat. Sarcina ta este să adaugi butoane radio care să îi ofere utilizatorului posibilitatea de a alege culoarea folosită în grafic. Mai exact:

  • Adaugă butoane radio în UI cu ID-ul "color", eticheta "Point color" și patru opțiuni: "blue", "red", "green", "black".
  • Adaugă cod în server astfel încât punctele din grafic să aibă culoarea selectată prin butoanele radio (linia 22).

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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)
Editează și rulează codul