基于逻辑语句子列表对象

Question

我正在尝试根据条件对一些向量进行子集化。单独对它们进行子集化会给我提供不同的行为（正确的行为），而不是在包含它们的列表上运行子集。这可能是一件我不注意的事情。

单独进行子集：

a<-1:10
b<-11:20
a[a==5]<-0
a

这给出了：

> a
 [1]  1  2  3  4  0  6  7  8  9 10

使用lapply和相同的子集技术作为函数（即x[x==5]<-0）在列表中进行子集：

a<-1:10
b<-11:20
w<-list(a,b)
q<-lapply(w, function(x){x[x==5]<-0})
q

这给出了：

> q
[[1]]
[1] 0

[[2]]
[1] 0

Answer 1

正如@RichardScriven在评论中指出的那样，你需要在你的lapply函数中返回x。编写函数时，返回值要么显式指定（通过return(...)），要么被认为是最后执行的语句。

正如您所写，您的函数执行以下操作：

lapply(w, function(x) {
  x <- x[x==5] # subsets a single element
  return(x <- 0) # returns only a single element
}

相反，您希望只更改容器中的一个元素（向量），然后返回整个容器：

lapply(w, function(x) {
  x[x==5] <- 0 # modify only a single element
  return(x) # return the whole vector
}