lapply不起作用

Question

需要检查数据帧中的列，如果值连续为真(不连续为真)，则替换它们。下面是一个例子。lapply不起作用，b列根本不变。

a<- c(1,2,3,4,5,1,1,1)
b<- c(TRUE,TRUE,TRUE,FALSE,TRUE,TRUE,FALSE,TRUE)
c<- data.frame(a,b)

index<- which(c$b == TRUE)
lapply(index,function(ind){
   c$b[ind + 1]<- ifelse(c$b[ind + 1]==TRUE,FALSE,FALSE)
})

有另一种方法可以做到这一点，而且效果不错。

trues <- which(c$b)
c$b[c$b == TRUE][c(0, trues[2:length(trues)] - trues[1:length(trues)-1]) == 1] <- FALSE

The correct result is:
> c
  a     b
1 1  TRUE
2 2 FALSE
3 3 FALSE
4 4 FALSE
5 5  TRUE
6 1 FALSE
7 1 FALSE
8 1  TRUE

仍然想知道为什么lapply不能工作！谢谢。

Answer 1

lapply中的函数像R中的任何其他函数一样工作，并且具有事物的本地副本。在函数中所做的更改不会神奇地传播到调用者。

看看c在这方面是如何变化的：

lapply(index, function(ind){c$a[ind]=99;print(c)})

在每次函数调用结束时，它都会输出c，并且每次只更改一个值。因为下一次在lapply中，它是一个新函数，具有新的上下文。

如果你想改变lapply，你必须使用lapply的返回值，并对它做一些事情。