Question

我注意到很多软件包允许您传递在调用函数的上下文中甚至可能无效的符号名称。我想知道它是如何工作的以及如何在我自己的代码中使用它？

这是ggplot2的一个例子：

a <- data.frame(x=1:10,y=1:10)
library(ggplot2)
qplot(data=a,x=x,y=y)

我的命名空间中不存在

x和y，但ggplot了解它们是数据框的一部分，并将其评估推迟到它们有效的上下文中。我尝试过做同样的事情：

b <- function(data,name) { within(data,print(name)) }
b(a,x)

但是，这种情况很糟糕：

Error in print(name) : object 'x' not found

我做错了什么？这是如何工作的？

注意：这是不重复Pass variable name to a function in r

Answer 1

我知道这是一个较旧的主题，但它是我过去所提到的。我最近发现了我认为传递变量名称的更好方法。所以我想我会把它包括在内。我希望这有助于某人。

a <- data.frame(x = 1:10, y = 1:10)

b <- function(df, name){
    eval(substitute(name), df)
}

b(a, x)
  [1]  1  2  3  4  5  6  7  8  9 10

更新该方法使用非标准评估。我开始解释但很快意识到Hadley Wickham比我做得更好。阅读此http://adv-r.had.co.nz/Computing-on-the-language.html

Answer 2

您可以使用match.call执行此操作，例如：

b <-  function(data,name) {

  ## match.call return a call containing the specified arguments 
  ## and the function name also 
  ## I convert it to a list , from which I remove the first element(-1)
  ## which is the function name

  pars <- as.list(match.call()[-1])
  data[,as.character(pars$name)]

}

 b(mtcars,cyl)
 [1] 6 6 4 6 8 6 8 4 4 6 6 8 8 8 8 8 8 4 4 4 4 8 8 8 8 4 4 4 8 6 8 4

说明：

match.call返回一个调用，其中包含所有指定的参数由他们的全名指定。

所以这里match.call的输出是2个符号：

b <-  function(data,name) {
  str(as.list(match.call()[-1]))  ## I am using str to get the type and name
}

b(mtcars,cyl)
List of 2
 $ data: symbol mtcars
 $ name: symbol cyl

那么我使用第一个符号mtcars ansd将第二个转换为字符串：

mtcars[,"cyl"]

或等同于：

eval(pars$data)[,as.character(pars$name)]

Answer 3

如果您在调用该函数时将变量名称放在引号之间，则可以正常工作：

> b <- function(data,name) { within(data,print(name)) }
> b(a, "x")
[1] "x"
    x  y
1   1  1
2   2  2
3   3  3
4   4  4
5   5  5
6   6  6
7   7  7
8   8  8
9   9  9
10 10 10

Answer 4

非常老的线程，但是您也可以使用get命令。它似乎对我来说更好。

a <- data.frame(x = 1:10, y = 11:20)

b <- function(df, name){

   get(name, df)

 }

b(a, "x")
 [1]  1  2  3  4  5  6  7  8  9 10

将变量名传递给R中的函数

4 个答案: