有情节的闪亮仪表板

Question

我正在学习一些闪亮的东西来做一个仪表板。 我有个主意。 我想创建一个仪表板，该仪表板从selectinput中选择一个变量，按该变量分组，并绘制该变量总数的条形图或直方图。

我已经生成了一个样本数据集来生成所需的内容，但是无法获取所需的内容。

UI代码是下一个：

library(shiny)

shinyUI(fluidPage(
    titlePanel("Demo dashboard"),

  sidebarLayout(
    sidebarPanel(
       selectInput("variable",
                   "group by",
                   choices = c("City","Country")
                    )
    ),

    mainPanel(
       plotOutput("distPlot")
    )
  )
))

服务器代码是下一个代码，在这里，我根据输入的变量进行汇总并绘制总计

library(shiny)
library(dplyr)


shinyServer(function(input, output) {

  output$distPlot <- renderPlot({

    sample<-tbl_df(data.frame(c("City1","City2","City3","City1","City2","City3","City2","City3"),
                              c("A","B","C","D","D","A","A","B"),
                              c(12,14,15,12,12,14,8,10)))
    colnames(sample)<-c("City","Country","Amount")
    df1<-sample%>%group_by(input$variable)%>%
    summarise(total=sum(Amount))
    sample%>%group_by(input$variable)%>%summarise(total=sum(Amount))

    x<- df1$total 
    hist(x)
  })

})

接下来是我的结果的屏幕截图：

但是，这不是预期的结果。 我无法获得所需的直方图

Answer 1

问题是您对dplyr的用法：

您的原始代码不会将input$variable评估input$variable按城市分组，而是尝试按不存在的称为“输入$ variable”列的分组：

sample %>%
      group_by(input$variable) %>%
      summarise(total=sum(Amount))

结果：

# # A tibble: 1 x 2
# `input$variable` total
# <chr>            <dbl>
#   1 City                97

您可以通过在语句之后添加一条print语句（例如： print(df1) ）或在该语句之前添加一个browser()轻松地检查一下。

这是因为dplyr默认情况下使用非标准评估 。 您可以在此处详细了解。

要使用标准（可编程）评价你需要解除引用 input$variable ，这样的值传递给dplyr。 在当前版本中，您可以结合使用!! 和sym 。

例：

sample %>%
    group_by(!!sym(input$variable)) %>%
    summarise(total=sum(Amount))

结果：

# # A tibble: 3 x 2
# City  total
# <fct> <dbl>
# 1 City1    24
# 2 City2    34
# 3 City3    39

柱状图：

编辑：更多解释： group_by 不评估其输入 ，而是引用它：这就是为什么您将“ input $ variable”作为列名的原因。

另一方面： sym函数将input$variable的实际值转换为符号 ，然后是!! 可以用于删除引用：

在dplyr中有效的是，如果输入周围没有引号 ，则： group_by(City)

让我们一步一步地看看会发生什么：

1. sym(input$variable)返回“城市”。 group_by("City")仍然无法正常工作，因为输入已将其引起来！
2. 这就是为什么我们需要使用!! ： !! sym(input$variable) !! sym(input$variable)返回不带引号的城市。 因此该表达式的计算结果为group_by(City) ，因此将按预期工作。