r - 在 R Manipulate 中添加许多复选框作为列表/向量

Question

我正在使用 {manipulate}向图中添加多个复选框 - 正在绘制的每条线对应一个复选框。由于所需的数量不是预先定义的，我试图找出一种方法将所有复选框作为向量或列表传递给 manipulate功能。
文档似乎暗示了一些东西:

manipulate(_expr, ...)

_expr : Expression to evalulate.

... : One or more named control arguments (i.e. slider, picker, checkbox, or button), or a list containing named controls.

我认为出路是根据需要传递一个包含尽可能多的复选框的列表。但是具体应该如何进行呢？

Answer 1

下面的例子应该做你想做的:

# Define function for ploting
example <- function(...){
  plot(cars)
  i <- 1
  for (my.control in list(...)) {
    if (my.control) abline(0, i)
    i <- i+1
  }
}

# Define your controls
custom.args <- list()
for (i in 1:5) {
  custom.args <- append(custom.args, list(checkbox(FALSE, paste("Ceckbox", i))))
}
names(custom.args) <- paste("checkbox", 1:5, sep="")

# Pass everything to manipulate
library(manipulate)
manipulate(
  eval(parse(text=sprintf('example(%s)', 
                          paste(names(custom.args), collapse=","))
             )),
  custom.args)

我不知道是否有更简洁的方法将控制值传递给绘图函数，但至少这是有效的。