在aes_string（），因子（）和Rstudio的閃亮包

Question

當我運行下面的代碼：

graph <- ggplot(data = graphData, aes_string(x = input$variable1, y = input$variable1)) 
    graph <- graph + geom_point(aes_string(colour=input$groupVariable)) 

我得到如下圖：

，因爲它不是由不同的分組這是個問題顏色，而是與藍色的色調。

我想這一點：

我試圖用factor()，如下：

graph <- ggplot(data = graphData, aes_string(x = input$variable1, y = input$variable2)) 
    graph <- graph + geom_point(aes_string(colour=factor(input$groupVariable))) 

但是，這只是給了我這樣的：

我該怎麼做o獲得中間圖像的圖形？

注輸入是通過其Rstudio的閃亮包通信之間很ui.R和server.R腳本的通道。

Answer 1

你可以試試下面的代碼：

output$plot1 <- renderPlot({ 

graphData[,input$groupVariable] <- factor(graphData[,input$groupVariable]) 

ggplot(graphData, aes_string(x=input$variable1, y=input$variable2, color=input$groupVariable)) + geom_point() 
})