foreach：保留名称

Question

有没有办法让foreach（）返回一个指定的列表/ data.frame。例如。

foo <- list(a = 1, b = 2) 
bar <- foreach (x = foo) %do% { x * 2 } 

返回list(2, 4)。我希望它返回list(a = 2, b = 4)。

另外，有没有办法从循环体内访问名称？

（我不感兴趣，其中名称foreach循环后分配的解决方案。）

问候

Answer 1

我用您的解决方案，直到我需要使用嵌套的foreach（与%:%运营商）。我想出了这个：

foo <- list(a = 1, b = 2) 
bar <- foreach (x = foo, .final = function(x) setNames(x, names(foo))) %do% { 
    x * 2 
    } 

诀窍是使用.final参数（这就是最终的结果应用于一次函数）来设置的名称。这更好，因为它不使用临时变量，并且整体更清洁。它可以与嵌套列表一起使用，以便可以在结构的几个层中保留名称。

请注意，这只有在foreach的参数为.inorder=T（这是默认值）时才能正常工作。

Answer 2

感谢您的建议。这是我想出了：

foo <- list(a = 1, b = 2) 
bar <- foreach (x = foo, n = names(foo), .combine = c) %do% { 
    rv <- list() 
    rv[[n]] <- x * 2 
    rv 
}