在构建列表时将循环转换为应用

Question

我正在尝试使用应用函数而不是循环在 R 中构建列表列表，但我无法将工作循环转换为 lapply 格式。请允许我再解释一下情况：

我在 R (getDetails) 中有一个函数，它检索与我传递给函数的参数相关的详细信息，并在列表中返回结果。如果我将单个记录传递给该函数，该函数运行良好，并且我还构建了一个循环，允许我一次循环遍历数据帧，并将数据帧的元素逐行传递给我的该函数又将一个列表返回到我的列表列表的第 i 个元素 (detailsList[[i]])。我试图弄清楚如何将我的 for 循环转换为应用函数。你能帮我解决这个问题吗？我创建了一个玩具示例，如果我可以开始工作，我可以将其推广到我的实际 getDetails 函数。

#use cars dataset for an example
data(cars)
#get number of rows
numrows<-dim(cars)[1]
#initialize empty list
detailsList<-vector("list", numrows)

#This is a toy example of the loop I want to convert to an apply
#I'm having trouble because this builds up a list and returns the results
#to my detailsList one element at a time and I'm not sure how to do this 
#in an apply.
for (i in 1:numrows){
  detailsList[[i]]<-getDetails(cars[i,])
}

detailsList

getDetails<-function(parameters){
   valueA<-parameters[1]+45
   valueB<-parameters[1]+10
   list(valueA, valueB)
}

更新：

我以为我只是想通了，但似乎当我这样做时，我的列表中出现了第三个维度，所以当我使用它时：

allDetails <- lapply(1:numrows, function(i)  getDetails(cars[i,]))

第一个列表的第二个元素只能使用allDetails[[1]][[1]][2] 访问，而不是像我希望的那样使用allDetails[[1]][2]。有谁知道我在这里做错了什么？

Answer 1

我想我是在@Parfait 的一点帮助下才弄明白的（谢谢@Parfait！）。如果其他人正在寻找答案，这对我有用，但我欢迎任何其他答案：

lapply(1:numrows, function(i)  getDetails(cars[i,]))

我不得不修改我的函数以返回一个向量而不是一个列表：

getDetails<-function(parameters){
   valueA<-parameters[1]+45
   valueB<-parameters[1]+10
   c(valueA, valueB)
}

Answer 2

这是你用vapply编写的循环

out <- vapply(1:nrow(cars), 
              function (i) {
                valA <- .subset2(cars, 1)[i] + 45L
                valB <- .subset2(cars, 1)[i] + 10L
                c(valA, valB)
              }, numeric(2))
t(out) 
#       [,1] [,2]
# [1,]   49   14
# [2,]   49   14
# [3,]   52   17
# [4,]   52   17
# [5,]   53   18
# [6,]   54   19
# [7,]   55   20
# ...
# (returns an array instead of a list, but that can be changed easily).

顺便说一句，我不知道你的最终目标是什么，但就这个例子而言，为什么 any 循环呢？

# vectorized
cbind(.subset2(cars, 1) + 45L, .subset2(cars, 1) + 10L)
#      [,1] [,2]
# [1,]   49   14
# [2,]   49   14
# [3,]   52   17
# [4,]   52   17
# [5,]   53   18
# [6,]   54   19
# [7,]   55   20
# ...
# or similar result with
# getDetails(cars) (version with c())