Question

在我正在研究的一个软件包中，我遇到了一个看似简单的问题 - 但我无法弄清楚：

子函数有两个参数：

obj，data.frame
foo，call

例如：

> head(obj)
  cadmium copper lead zinc  elev
1    11.7     85  299 1022 7.909
2     8.6     81  277 1141 6.983
3     6.5     68  199  640 7.800
4     2.6     81  116  257 7.655
5     2.8     48  117  269 7.480
6     3.0     61  137  281 7.791
> foo
log(cadmium)
> class(foo)
[1] "call"

在该示例中，我想创建一个向量x <- log(obj$cadmium)。我怎么做？我尝试使用with()，但我没有得到预期的结果：

> with(obj, foo)
log(cadmium)

foo是用户通过在data.frame obj的列上指定转换而创建的调用：

my_function(obj, foo = log(cadmium)) { ... }

dput()数据摘录：

obj <- structure(list(cadmium = c(11.7, 8.6, 6.5, 2.6, 2.8, 3), copper = c(85L, 
81L, 68L, 81L, 48L, 61L), lead = c(299L, 277L, 199L, 116L, 117L, 
137L), zinc = c(1022L, 1141L, 640L, 257L, 269L, 281L), elev = c(7.909, 
6.983, 7.8, 7.655, 7.48, 7.791)), .Names = c("cadmium", "copper", 
"lead", "zinc", "elev"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))

Answer 1

您需要评估通话，例如使用eval()：

foo <- call("log", quote(cadmium))
with(obj, eval(foo))

给出：

> with(obj, eval(foo))
[1] 2.4595888 2.1517622 1.8718022 0.9555114 1.0296194 1.0986123

其中obj是您展示的数据片段。

eval()还有一个envir参数，指示评估表达式的环境。因此，您可以在with()直接使用eval()的情况下执行您想要的操作：

> eval(foo, envir = obj)
[1] 2.4595888 2.1517622 1.8718022 0.9555114 1.0296194 1.0986123

Answer 2

像

这样的东西

z <- data.frame(a1=1:5,b1=LETTERS[1:5],c1=letters[1:5])
foo <- quote(log(a1))
eval(foo,envir=z)

但要注意：一旦你开始使用eval，你就会降到R的较低深度。我仍然不完全理解调用帧，封闭帧等之间的区别等......

Answer 3

看起来你没有正确定义一个函数：

> foo <- function(x) log(x)
> class(foo)
[1] "function"

然后做：

x <- foo(obj$cadmium)

或者：

x <- foo(obj[["cadmium"]])

或者：

x <- with(obj, foo(cadmium)

如何评估data.frame中的调用？

3 个答案: