7

我之前问过一个关于如何在没有引号的情况下接受文本/字符参数的问题。在我在那个问题中提供的场景中，参数的数量是固定的，所以我在函数定义中使用的 eval(substitute()) 的数量对应于我拥有的参数的数量。

现在我有一个场景，我有一个参数，例如factors（见下文），并且用户可以指定多个列名而不使用它们周围的引号 - 即，它们将使用factor1而不是"factor1". 我想评估用户提供的每个列名。

foo<-function(data.frame, factors){

}

问题1：我想知道当表达式的数量可以变化时，是否有一种方法可以将 eval(substitute()) 应用于多个表达式。

正如所指出的， eval(substitute()) 可能具有潜在的危险，并且在某些情况下可能会失败。

问题2：除了使用引用的列名之外，还有更优雅的方法来处理这个问题，如下所示： 

foo<-function(data.frame, factors){
   output<-data.frame[, factors]
   output
}
foo(data.frame=dataset, factors=c("factor1", "factor2"))
4

1 回答 1

9

首先，在您提供的示例中，我肯定更喜欢使用带引号的列名。对他们有利的一件事是，他们将允许如下有用的间接寻址：

XX <- c("cyl", "mpg")
foo(mtcars, XX)

也就是说，如果您确实想传递未引用符号的向量，这可以解决您的Question 2。

foo <- function(data, factors) {
    jj <- as.character(substitute(factors)[-1])
    data[,jj]
}

head(foo(data = mtcars, factors = c(cyl, mpg)))
#                   cyl  mpg
# Mazda RX4           6 21.0
# Mazda RX4 Wag       6 21.0
# Datsun 710          4 22.8
# Hornet 4 Drive      6 21.4
# Hornet Sportabout   8 18.7
# Valiant             6 18.1
于 2013-03-20T16:00:49.743 回答