使用R的组数据交互式绘图

全部,

要在多个组（类别）中绘制数据，请执行以下操作：

数据（iris）
图书馆（dplyr）
iris_new您可以通过
Shining
进行交互式显示。请看这里：

以下是您可以运行的代码：

library(shiny)
library(dplyr)
library(ggplot2)
data(iris)

ui <- fluidPage(
  selectInput('species','Species',c("setosa","versicolor","virginica")),
  plotOutput("plot")
)

server <- function(input, output) {
  iris_new <- select(iris, -Species)

  output$plot <- renderPlot({
    ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
      geom_point(data = iris_new, colour = "grey70") +
      geom_point(data=iris[iris$Species==input$species,],aes(colour = Species))
  })


}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（dplyr）
图书馆（GG2）
数据（iris）
你有没有仔细考虑过？啊哈，这正是我想要的。谢谢您！
library(shiny)
library(dplyr)
library(ggplot2)
data(iris)

ui <- fluidPage(
  selectInput('species','Species',c("setosa","versicolor","virginica")),
  plotOutput("plot")
)

server <- function(input, output) {
  iris_new <- select(iris, -Species)

  output$plot <- renderPlot({
    ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
      geom_point(data = iris_new, colour = "grey70") +
      geom_point(data=iris[iris$Species==input$species,],aes(colour = Species))
  })


}

shinyApp(ui = ui, server = server)