r - 如何接受不带引号的文本/字符参数

Question

抱歉，如果问题不清楚。随意更改它。

所以基本上我试图找到一种方法，使函数的文本/字符串参数不需要引号。

foo  = function(x, y, data){
    n1 = length(data[,x])
    n2 = length(data[,y])
    cat(n1, n1)
 }

如果我使用以下代码

data(survey)
foo(Sex, Fold, survey)

我会收到一条错误消息。但如果我使用以下内容:

foo("Sex", "Fold", survey)

或

foo(1, 5, survey)

这个功能会给我我想要的。所以我想知道是否有任何方法可以构造函数，这样我就不需要在列名周围使用引号。谢谢!

Answer 1

好吧，这将适用于符号:

foo  = function(x,y, data){
    n1 <- length(eval(substitute(x),data))
    n2 <- length(eval(substitute(y),data))
    cat(n1,n2)  
}

如果您希望它也适用于带引号的变量名称和整数索引，您可以在开始时简单地检查 x 和 y 一些简单的 if -else 分支。

但它带有标准警告，即 eval(substitute()) 成语使用起来可能很危险。 (您可能无法始终预测它在某些情况下不会如何工作，并且当它不工作时您可能无法意识到。)