Data.table：使用闪亮的变量动态选择组

Question

我正在尝试开发一个应用程序，允许用户选择在 data.table 的“by”部分中使用哪些变量。

假设 mtcars 数据集被加载到应用程序中，在 UI 中会有一个类似的选择：

vector.vars <- c('am', 'gear', 'carb')
selectInput("vars", "Select variables:", as.list(vector.vars), selected = 'am', multiple = TRUE)

此选择输入将在 UI 中呈现，当用户选择服务器中的某些变量时，将使用如下：

output$table <- renderDataTable({
  d <- mtcars[, list(mpg_mean= mean(mpg), by=input$vars]
  })

在这种情况下，如果用户选择了“am”和“carb”，前面的脚本应该执行这个操作：

  d <- mtcars[, list(mpg_mean= mean(mpg), by=list(am, carb)]

并显示 'am' 和 'carb' 的每个组合的 'mpg' 的平均值。

...但是 by=input$vars 不能按预期工作。

关于如何达到所需输出的任何想法， 提前致谢！

Answer 1

这样就可以了：

as.data.table(mtcars)[, .(mpg_mean = mean(mpg)), by = c(input$vars)]