按屏幕中的dplyr函数分组

在使用Shiny时，我在dplyr工作中遇到了问题。dplyr似乎没有将SHINK的输入$var识别为表中的有效字段

在本例中，我希望ui.R中的“level”输入指示分组依据的内容

在ui.R中，我有：

library(shiny)
shinyUI(fluidPage(
titlePanel("Orders"),
sidebarLayout(
sidebarPanel(
  selectInput("Region_Input", label = h5("Choose a Region"), 
              choices = list("A", "B")),
  radioButtons("level", "What level do you want to see:",
                     list("item", "category"))

),
mainPanel(
  verbatimTextOutput("Level_Select"),
  tableOutput(outputId="table")

))))

在server.R中，我有：

library(shiny)  
library(dplyr)

OrderItems <- data.frame(Region =      c('A','A','A','A','A','A','B','B','B','B','B','B','B'),
                     item = c('Item A','Item B','Item C','Item D','Item E',
                              'Item A','Item B','Item C','Item D','Item E',
                              'Item A','Item B','Item C'),
                     category = c('Cat 1','Cat 1','Cat 1','Cat 2','Cat 2',
                                  'Cat 1','Cat 1','Cat 1','Cat 2','Cat 2',
                                  'Cat 1','Cat 1','Cat 1'))
shinyServer(
function(input, output) {

output$table <- renderTable({
  OrderItems %>%
    group_by(input$level) %>%
    summarize(count = n()) %>%
    arrange(desc(count))    
})
})

然而，我最终得到的是：

    input$level count
1   category           13

---

任何关于如何解决这个问题的想法都将不胜感激

根据@joran的评论，这应该很简单，用

groupby（input$level）

替换

groupby（input$level）

，但是如果没有一个可复制的例子，很难说。如果您进行一些更改并利用

mtcars

数据，您可以复制以下内容以了解其工作原理：

服务器.R

---

阅读关于非标准评估和注释的

group\u by

。请为

OrderItems

提供一些样本数据，以使其可复制。可能

。。。按分组（.dots=输入$level）射击，对不起，我忘了包括我的样本数据。固定的。这似乎奏效了！需要仔细阅读NSE…@joran说vingette link死了。是否还有其他资源可链接？请注意是否有多个分组变量来自
input$level
。如前所述，在这种情况下，您可以使用
group\u by_uu（.dots=input$level）
    input$level count
1   category           13

library(shiny)  
library(dplyr)

shinyServer(
  function(input, output) {

    output$table <- renderTable({
      mtcars %>%
        group_by_(input$level) %>%
        summarize(count = n()) %>%
        arrange(desc(count))    
    })
  })

library(shiny)
shinyUI(fluidPage(
  titlePanel("Orders"),
  sidebarLayout(
    sidebarPanel(
      selectInput("Region_Input", label = h5("Choose a Region"), 
                  choices = list("A", "B")),
      radioButtons("level", "What level do you want to see:",
                   list("cyl", "am"))

    ),
    mainPanel(
      verbatimTextOutput("Level_Select"),
      tableOutput(outputId="table")

    ))))