在aes_string（），factor（）和Rstudio的Shiny Package上

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

但这只是给了我这个：

如何在中间图像中获取图表？

注意 输入是Rstudio的Shiny软件包在其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()
})