首页 文章

闪亮 - 过滤用户输入变量

提问于
浏览 次
0

我只是想创建一个基本的闪亮应用程序，允许用户查看所选变量的简单图并根据需要应用过滤器 .

但是，我很难让绘图与应用的滤镜一起工作 . 如果我不应用过滤器，我可以使绘图工作，但当前代码给出错误：“错误：没有适用于'filter_'的方法应用于类”字符“”的对象 .

我意识到问题是与想要绘制的内容有关，可能与应用于“input $ Variable”的过滤器有关，但我无法解决它！任何帮助赞赏！

这是我的代码：

library(shiny)
data <- read.csv("df1Final.csv", stringsAsFactors = T)

ui <- fluidPage(
   titlePanel("PhD Data"),
   sidebarLayout(
      sidebarPanel(
        uiOutput("Variable"), 
        sliderInput("Age.Yr", "Age:", 8, 12, c(8,12), step = 0.25),
         sliderInput("Train.Hr", "Training (Hours):", 9, 11, c(9,11), step = 0.1),
         sliderInput("Grade", "Grade:", 3, 5, c(3,5), step = 1)
      ),
      mainPanel(plotOutput("coolplot"),
                br(), br(),
                verbatimTextOutput("results")
      )
   )
)

server <- function(input, output) {
  output$Variable <- renderUI({
    selectInput("Variable", "Data:", choices = colnames(data)[-1])
  })

  filtered <- reactive({
    if (is.null(input$Variable)) {
      return(NULL)
    }
    input$Variable %>%
      filter(Age.Yr >= input$Age.Yr[1],
             Age.Yr <= input$Age.Yr[2],
             Train.Hr >= input$Train.Hr[1],
             Train.Hr <= input$Train.Hr[2],
             Grade >= input$Grade[1],
             Grade <= input$Grade[2] 
      )
  })

  output$coolplot <- renderPlot({
    if (is.null(filtered())) {
      return()
    }

    ggplot(filtered(), aes(x=filtered(), color=Group)) +
      geom_density()
  })
  output$results <- renderPrint({
    describeBy(data[,input$Variable], data$Group, mat = F)
  })
}

# Run the application 
shinyApp(ui = ui, server = server)
r shiny shiny-server

2 回答

  • 0

    所以我已经能够通过调整过滤来实现这一点：

    data[input$Variable] %>% ...

    然后我还要调整ggplot中的aes为：

    aes_string(x=input$Variable)

    仍然试图找出如何将color = Group添加到ggplot中，因为现在这不起作用 .

    回复于
  • 0

    我认为问题是你是在过滤Shiny传递给你的实际 Value 而不是你的数据 . 输入$ Variable不是一组数据，它只是该列数据的 Headers .

    在对其执行操作之前尝试打印输入$ Variable .

    回复于

相关问题