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

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

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

最佳答案

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

# 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)

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

关于r - 在 R Manipulate 中添加许多复选框作为列表/向量，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/16926674/