如何创建一个被动的＆＃34;计算字段＆＃34;使用Shiny / ggplot2 / dplyr？

Question

我正在尝试创建一个执行以下操作的Shiny应用： 1）使用无功输入字段动态选择维度（x变量）， 2）使用dplyr然后创建由该维度聚合的数据的子集， 3）然后使用多个字段来计算新的y变量。

我尝试了很多不同的方法，但无法找到让它全部工作的方法......

到目前为止，代码看起来是什么样的（在server.R端）...

output$MyChart <- renderPlot({

d <- MyData #%>%
    group_by(input$Dim1) %>%
    summarize("Metric3" = sum(Metric1) / sum(Metric2))

p <- ggplot(d, aes(x = d[,input$Dim1], y = d$Metric3))
p + geom_bar(stat = "identity")

})

有什么建议吗？

谢谢！