r - 应用函数不改变原始值

Question

与此页面上的问题相关:Randomly associate elements of two vectors given conditions如果我有以下数据:

loss=c(45,10,5,1)

capitals = structure(list(capital = c(100L, 50L, 4L, 25L, 5L), loss = c(5L, 
10L, 10L, 1L, 45L)), .Names = c("capital", "loss"), class = "data.frame", row.names = c(NA, 
-5L))

capitals
  capital loss
1     100    5
2      50   10
3       4   10
4      25    1
5       5   45
> 

我正在尝试通过以下命令更正具有 loss>capital 的任何行(从 vector loss 分配另一个随机值，以便 loss<=capital):

apply(capitals, 1, function(x){while(x[2]>x[1]) {x[2] = sample(loss,1); print(x[2])} })

打印函数显示值在函数中发生变化，但数据框大写字母中的值没有变化:

apply(capitals, 1, function(x){while(x[2]>x[1]) {x[2] = sample(loss,1); print(x[2])} })
loss 
   5 
loss 
  10 
loss 
  10 
loss 
   1 
loss 
   5 
NULL
> capitals
  capital loss
1     100    5
2      50   10
3       4   10
4      25    1
5       5   45
> 

为什么 capitals 数据框中的值没有变化，如何纠正？感谢您的帮助。

Answer 1

apply 正在评估一个函数，函数内的赋值不会影响封闭环境。正在修改一个副本，该副本在函数退出时被销毁。

相反，要使用apply，您应该构建一个对象，让apply 返回每个元素。也许是这样的:

capitals$loss <- 
     apply(capitals, 1, 
            function(x){
              while(x[2]>x[1]) 
                x[2] <- sample(loss,1)
              x[2]
           }
     )

capitals
##   capital loss
## 1     100    5
## 2      50   10
## 3       4    1
## 4      25    1
## 5       5    5

这里，loss 的新值 (x[2]) 从函数返回，并通过 apply 收集到一个向量中.然后使用它来替换数据框中的列。

这可以在没有 while 循环的情况下通过对 loss 的所需子集进行采样来完成。需要一个 if 来确定是否需要采样:

apply(capitals, 1, 
        function(x)
          if (x[2] > x[1]) 
            sample(loss[loss<=x[1]], 1) 
          else 
            x[2]
 )

更好的是，您可以只替换满足条件的那些行，而不是使用 if:

r <- capitals$capital < capitals$loss
capitals[r, 'loss'] <- 
     sapply(capitals[r,'capital'], 
        function(x) sample(loss[loss<=x], 1)
     )

这里，需要替换的行由 r 表示，并且只有那些行被修改(这与原始中的 while 存在相同的条件，但是元素的顺序已被交换——因此从大于变为小于)。

sapply 表达式循环遍历这些行的 capital 值，并从 loss 的那些条目中返回单个样本超过 capital 值。