replace()vs"[< - "？

Question

我最近偶然发现了replace()和"[<-".它们似乎具有类似的功能,例如"[<-"我可以做这样的事情:

        > x.tst <- array(1:6, c(2,3))
        > s.tst <- array(0, c(2,3))
        > s.tst
             [,1] [,2] [,3]
        [1,]    0    0    0
        [2,]    0    0    0
        > s.tst[1:3] <- 1
        > "[<-"(x.tst, s.tst==1, 0)
             [,1] [,2] [,3]
        [1,]    0    0    5
        [2,]    0    4    6
        > x.tst
             [,1] [,2] [,3]
        [1,]    1    3    5
        [2,]    2    4    6

有人可以帮助澄清差异吗？replacevs 的优势是什么"[<-",反之亦然？

Answer 1

它们基本上完全一样.如果你看一下replace的源代码,你会看到:

function (x, list, values) 
{
    x[list] <- values
    x
}
<environment: namespace:base>

所以替换只不过是一个包装器[<-:

> replace(x.tst, s.tst==1, 0)
     [,1] [,2] [,3]
[1,]    0    0    5
[2,]    0    4    6

[<-如果你需要这样做一百万次,使用可以给你一个加速,因为你失去了对包装函数的额外调用.但它确实很小,所以这是一个选择问题.我想说这replace()有点可读

顺便说一下,x.tst[s.tst==1] <- 0比起来更容易阅读"[<-"(x.tst, s.tst==1, 0).没有理由使用该构造,除非您想将结果保存在新的数据框中.

为了澄清,正如@Andrie指出的那样,replace()并且"[<-"(x.tst, s.tst==1, 0)你得到了整个x.tst的副本,其中相关值已经改变.所以你可以把它放在一个新的对象中.这与x.tst[s.tst==1] <- 0您更改x.tst本身中的值相反.请注意,它不会节省内存,因为在执行操作之前,R将在内部制作x.tst的副本.

时间结果:

> system.time(replicate(1e6, replace(x.tst, s.tst==1, 0)))
   user  system elapsed 
  12.73    0.03   12.78 

> system.time(replicate(1e6, "[<-"(x.tst, s.tst==1, 0)))
   user  system elapsed 
   6.42    0.02    6.44 

> system.time(replicate(1e6, x.tst[s.tst==1] <- 0))
   user  system elapsed 
   5.28    0.02    5.32