带有r2d3和闪亮应用程序的交互式图表

Question

我正在尝试使用r2d3软件包向我的Shiny应用程序添加交互式条形图。我有一个像这样的虚拟样本数据集，其中包含日期，id和运动列，仅供参考：

df <- data.frame(stringsAsFactors=FALSE,
          date = c("2019-08-06", "2019-08-07", "2019-08-08", "2019-08-09",
                   "2019-08-10", "2019-08-06", "2019-08-07", "2019-08-08",
                   "2019-08-09", "2019-08-10"),
   id = c("18100410-1", "18100410-1", "18100410-1", "18100410-1",
                   "18100410-1", "18100496-1", "18100496-1", "18100496-1",
                   "18100496-1", "18100496-1"),
       useage = c(16.43, 15.78, 14.43, 15.68, 15.5, 17.08, 0, 0, 14.78, 14.57)
) %>% 
  mutate(date = readr::parse_date(date, format = "%Y-%m-%d"))

我的目标是拥有一个用户可以从右侧菜单中选择每个ID的应用程序，然后我们得到一个条形图，该条形图以条形图的形式显示了每天的使用小时数（这里是虚拟示例）。

我已经在我的条形图图表部分尝试过此方法，但是显然，我在这里缺少一些内容。任何帮助将不胜感激

---

bar_graphD3=reactive({
  grouped <- ifelse(input$id != "ALL", expr(date), expr(id), expr(usage))

  data <- sel_data() %>%
    group_by(!!grouped) %>%
    collect(usage) %>%
    mutate(
      y = n,
      x = !!grouped
    ) %>%
    select(x, y)

  data <- data %>%
    mutate(label = x)

  r2d3(data, "bar_plot_sample.js")
})