LoslegenKostenlos loslegen

Farbe zu deinem Plot hinzufügen: Farbeingabe

Das Paket colourpicker stellt eine Farbeingabe über die Funktion colourInput() bereit. Auch wenn Farbeingaben nicht Teil des shiny-Pakets sind, verhalten sie sich wie jede andere Eingabe.

Eine Farbeingabe kann viele verschiedene Argumente haben, die du erkunden kannst. Wir verwenden hier nur die Basisargumente: inputId, label und value. Das Argument value nimmt eine Farbe als Anfangswert an. Farben können in mehreren Formaten angegeben werden; am einfachsten ist es, englische Farbnamen wie „red“ oder „yellow“ zu verwenden.

Diese Übung ist Teil des Kurses

Fallstudien: Webanwendungen mit Shiny in R erstellen

Kurs anzeigen

Anleitung zur Übung

Der Code für die Shiny-App aus der letzten Übung ist vorgegeben. Deine Aufgabe ist es, die Radio-Buttons zur Farbauswahl durch eine Farbeingabe zu ersetzen. Konkret:

  • Lade das Paket colourpicker.
  • Finde die UI-Funktion, die die Radio-Buttons zur Farbauswahl erzeugt, und ersetze sie durch eine Farbeingabe (Zeile 12).
  • Die Farbeingabe soll die ID „color“, das Label „Point color“ und die Standardfarbe „blue“ haben.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# Load the colourpicker package
___

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),

      # Replace the radio buttons with a color input
      radioButtons("color", "Point color",
                   choices = c("blue", "red", "green", "black")),
      selectInput("continents", "Continents",
                  choices = levels(gapminder$continent),
                  multiple = TRUE,
                  selected = "Europe"),
      sliderInput("years", "Years",
                  min(gapminder$year), max(gapminder$year),
                  value = c(1977, 2002))
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    data <- subset(gapminder,
                   continent %in% input$continents &
                   year >= input$years[1] & year <= input$years[2])
    
    p <- ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point(size = input$size, col = input$color) +
      scale_x_log10() +
      ggtitle(input$title)
    
    if (input$fit) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

shinyApp(ui = ui, server = server)
Code bearbeiten und ausführen