为“[”的论点征求类比

Question

我开始考虑将“[”的论点视为类似于机枪带：

set.seed(10)
datfrm <- data.frame(a= rev(letters[1:10]), b = runif(10), cc = letters[1:10] )
datfrm[datfrm$b < 0.5, "b"] <- 0

所以机枪传送带只运行到“[”的第一个参数：

               ---
               ---
               ---
               ---
datfrm[datfrm$b < 0.5, "b"] <- 0

但是，如果您只想对子集进行分配，比如说从另一列：

               ---                         ---
               ---                         ---
               ---                         ---
               ---                         ---
datfrm[ datfrm$b < .5, "cc"] <- datfrm[ datfrm$b < .5, "a"]

表达式datfrm$b 被反复评估，当它们在赋值的任一侧配对时......所有的都按预期进行。那么这有什么不对或不对，可以改进吗？

Answer 1

你可以先存储索引，这样它只计算一次：

idx <- datfrm$b < .5
datfrm[idx, "cc"] <- datfrm[idx, "a"]

这更易于阅读，并且在进行更改时不易出错。

我认为within 可能提供最少的输入，因此如上所述使用idx，并用within() 的输出替换原来的：

datfrm <- within(datfrm, cc[idx] <- a[idx])