在 data.table 中多次使用 :=

我经常发现自己使用以下方法进行一长串链式计算:=在同一个数据表上。例如，像这样的东西

test = data.table(1:10, 1:10, 1:10, 1:10)

test[, V1 := V1^2]
test[, V2 := V1*V2]
test[, V3 := V2/V3]
test[, V4 := sqrt(V3)]
test[, new := letters[V4]]

不得不写test[, ...]每行1）需要更长的时间来输入（这不是一个大问题，我可以应对）。但更重要的是，它也会在视觉上分散人们对计算流程和内容的注意力。我更愿意写一些类似的东西

test[, {
  V1 := V1^2
  V2 := V1*V2
  V3 := V2/V3
  V4 := sqrt(V3)
  new := letters[V4]
}]

但这会引发一个错误You have wrapped := with {} which is ok but then := must be the only thing inside {}.

我知道我可以写

within(test, {
  V1 = V1^2
  V2 = V1*V2
  V3 = V2/V3
  V4 = sqrt(V3)
  new = letters[V4]
  })

但这就损失了使用效率:=

我尝试编写一个函数来提供这种能力

with.dt = function(dt, expressions){
  e = strsplit(expressions,'\n')
  for (i in 1:length(e)){    
    dt[, eval(parse(text = e[i]))]
  }
  dt
  }

with.dt(test, "
  V1 := V1^2;
  V2 := V1*V2;
  V3 := V2/V3;
  V4 := sqrt(V3);
  new := letters[V4];
  ")

但这并不会改变data.table的内容

是否有任何语法可以使外观整洁within版本，同时保留按引用分配属性:=?

有几种不同的方法可以做到这一点。

这里使用的原始测试矩阵：

   v1 v2
1:  1  3
2:  2  4

首先，我们可以这样做：

test[,`:=`(v1 = v1^2,
          v2 = v1*v2)

Output:

v1 v2
 1  3
 4  8

或者，如果我们希望按顺序完成，我们可以使用 Frank 的 hack。

test[, `:=`(v1 = v1 <- v1^2, v2 = v2 * v1)]

Output:

v1 v2
 1  3
 4 16  

或者，类似地我们可以运行这个：

test[,c("v1","v2") := list(v1^2,v1^2*v2)]

Output:

v1 v2
 1  3
 4 16