Question

我正在尝试使用lazyeval包在R中创建非标准评估，但对substitute和lazy之间的差异感到困惑。

df <- data.frame(col1 = runif(10), col2 = runif(10))
> df
         col1      col2
1  0.54959138 0.8926778
2  0.99857207 0.9649592
3  0.26451336 0.9243096
4  0.98755113 0.7155882
5  0.84257525 0.5918387
6  0.20692997 0.5875944
7  0.44383744 0.5839235
8  0.44014903 0.1006080
9  0.49835993 0.7637619
10 0.07162048 0.3155483

我首先创建了一个函数来获取数据框和两个列名，并返回一列，即两列的总和。 substitute和eval似乎工作正常。

SubSum <- function(data, x, y) {
  exp <- substitute(x+y)
  r <- eval(exp, data)

  return(cbind(data, data.frame(sum=r)))
}

> SubSum(df, col1, col2)
         col1      col2       sum
1  0.54959138 0.8926778 1.4422692
2  0.99857207 0.9649592 1.9635312
3  0.26451336 0.9243096 1.1888229
4  0.98755113 0.7155882 1.7031394
5  0.84257525 0.5918387 1.4344140
6  0.20692997 0.5875944 0.7945244
7  0.44383744 0.5839235 1.0277610
8  0.44014903 0.1006080 0.5407570
9  0.49835993 0.7637619 1.2621218
10 0.07162048 0.3155483 0.3871688

然后我尝试使用lazy和lazy_eval创建一个函数，但它不起作用。

require(lazyeval)
LazySum <- function(data, x, y) {
  exp <- lazy(x+y)
  r <- lazy_eval(exp, data)

  return(cbind(data, data.frame(sum=r)))
}

> LazySum(df, col1, col2)
Error in eval(expr, envir, enclos) : object 'col1' not found

我目前的答案

经过一些试验和错误后，此代码段似乎有效。

LazySum <- function(data, x, y) {
  exp <- interp(～x + y, x=lazy(x), y=lazy(y))
  r <- lazy_eval(exp, data)

  return(cbind(data, data.frame(sum=r)))
}

基本上我必须使用interp来构建惰性表达式。

Answer 1

你非常接近。阅读?lazy特别是示例，以了解我对您的代码所做的更改

require(lazyeval)
set.seed(357)
df <- data.frame(col1 = runif(10), col2 = runif(10))
LazySum <- function(data, sum=x+y) {
   exp <- lazy(sum) #giving lazy a named arguement
   r <- lazy_eval(exp, data)

   return(cbind(data, data.frame(sum=r)))
 }

LazySum(df, col1+col2)

R中懒惰和替代之间的区别

1 个答案: