1

我正在尝试使用 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")
})
4

0 回答 0