如何使用dplyr从反应性数据集中过滤？

Question

我无法过滤反应性数据集。 我需要根据用户输入在我的电脑上调用不同的数据集； 由于这些数据集具有相同的行名，因此我想为其定义一个过滤器。
对于这个问题，我做了两个简单的数据集。 提前非常感谢您。

UI

library(shiny)

ui <- fluidPage(
sidebarLayout(sidebarPanel(selectInput('number', h4("Select number"), 
choices = c("first", "second")),
    selectInput('dataset', h4("Select dataset"),
    choices=c("dataset1",
    "dataset2"))),

    mainPanel(
    plotOutput("graph")
    )))

服务器

server <- function(input, output) {

library(ggplot2)
library(dplyr)


dataset1 <- data.frame(names=c("first", "second"), 
X1=rnorm(1:10),X2=rnorm(1:10),X3=rnorm(1:10))
dataset2 <- data.frame(names=c("first", "second"), 
X1=rnorm(1:10),X2=rnorm(1:10),X3=rnorm(1:10))

plotdata <- reactive ({get(input$dataset)

if(input$number == "first") {
  filter(plotdata, names=="first")}
else if(input$number == "second") {
  filter(plotdata, names=="second")} 
})

 output$graph <- renderPlot({

datos <- plotdata()

ggplot(datos, aes(X1, X2)) + 
  geom_col()

 })

 }

 shinyApp(ui = ui, server = server)

我收到以下错误：没有将适用于“ filter_”的适用方法应用于类“ c（'reactiveExpr'，'reactive'）”的对象

但是，当用以下代码替换反应性数据部分时，它使图形没有问题，但是我必须定义变量和数据集之间的所有可能组合（这不是一个选择，因为实际数据集为5，具有很多变量，并且在用户界面上选择的行）：

plotdata <- reactive ({

if(input$number == "first") {
  filter(dataset1, names=="first")}
else if(input$number == "second") {
  filter(dataset1, names=="second")} 
})

那么如何使用dplyr从反应性数据集中过滤呢？

Answer 1

您需要将反应数据作为函数plotdata()调用

Answer 2

您可以这样做：

library(shiny)

ui <- fluidPage(
  sidebarLayout(sidebarPanel(selectInput('number', h4("Select number"), 
                                         choices = c("first", "second")),
                             selectInput('dataset', h4("Select dataset"),
                                         choices=c("dataset1",
                                                   "dataset2"))),
                mainPanel(
                  plotOutput("graph")
                ))
)

server <- function(input, output) {

  library(ggplot2)
  library(dplyr)

  dataset1 <- data.frame(names=c("first", "second"), 
                         X1=rnorm(1:10),X2=rnorm(1:10),X3=rnorm(1:10))
  dataset2 <- data.frame(names=c("first", "second"), 
                         X1=rnorm(1:10),X2=rnorm(1:10),X3=rnorm(1:10))

  plotdata <- reactive ({
    dataset <- get(input$dataset)
    dataset %>% filter(names==input$number)
  })

  output$graph <- renderPlot({
    datos <- plotdata()
    ggplot(datos, aes(X1, X2)) + 
      geom_col()
  })

}

shinyApp(ui = ui, server = server)

但是，我的建议是不要使用get ，而是将您的数据集存储在一个命名列表中，因此类似datasets <- list('dataset1'=1, 'dataset2'=2)然后使用datasets[[input$dataset]]进行调用datasets[[input$dataset]]

希望这可以帮助！