Austauschpunktfarben in glänzendem

Question

Ich habe eine glänzende App, die ein Diagramm mit ggplot anzeigt. Ich möchte einen Pulldown machen, mit dem Benutzer zwischen zwei Farbschemas für die Punkte wechseln können. ui:

pageWithSidebar(
    headerPanel('PCA'), 
    sidebarPanel(
     selectInput('colorBy', 'Color By', c('red', 'blue')) 
    ), 
    mainPanel(
     plotOutput('plot1') 
    ) 
) 

Server-Code (darunter auch einige Pseudo-Code):

function(input, output, session) { 

    # create new columns with alternate color schemes 
    iris$red = rep('red', (dim(iris)[1])) 
    iris$blue = rep('blue', (dim(iris)[1])) 

    #FIXME 
    # set the color scheme 
    colorScheme <- reactive({ 
    if (input$colorBy == 'red'){ 
     iris$red 
    } 

    else{ 
     iris$blue 
    } 
    }) 

# make the plot 
output$plot1 <- renderPlot({ 
    ggplot(iris, aes(Sepal.Length, Sepal.Width)) +  geom_point(colour=colorScheme) 
    }) 

} 

Answer 1

Die colorScheme ist eine Funktion, so dass Sie () am Ende

output$plot1 <- renderPlot({ 
      ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point(colour=colorScheme()) 
    }) 

sollte hinzufügen