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

有没有人能帮我弄清楚其中的区别？与"[<-"和vis相比，replace的优势是什么？

Answer 1

它们基本上是一模一样的。如果你看一下replace的源代码，你会看到：

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

所以replace只是一个围绕[<-的包装器：

> 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本身中的值的x.tst[s.tst==1] <- 0相反。请注意，它不会节省内存，因为在进行操作之前，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