R 中的压缩列表

Question

作为指导，我更喜欢使用 lapply 或 *ply （来自 plyr）将函数应用于列表的元素，而不是显式地迭代它们。然而，当我必须一次处理一个列表时，这种方法很有效。当函数接受多个参数时，我通常会执行一个循环。

我想知道是否有可能有一个更干净的结构，但本质上仍然有效。一种可能的方法是定义一个类似于 Python 的函数 zip(x,y)，它接受输入列表，并返回一个列表，其第 i 个元素是 list(x, y)，然后将该函数应用于这个清单。但我的问题是我是否使用了最干净的方法。我并不担心性能优化，而是担心清晰度/优雅。

下面是一个简单的例子。

        A <- as.list(0:9)
        B <- as.list(0:9)
        f <- function(x, y) x^2+y

        OUT <- list()
        for (n in 1:10) OUT[[n]] <- f(A[[n]], B[[n]])
        OUT
        [[1]]
        [1] 0

        [[2]]
        [1] 2

        ...

这是压缩的示例（可以扩展到任意参数）：

zip <- function(x, y){
    stopifnot(length(x)==length(y))
    z <- list()
    for (i in seq_along(x)){
        z[[i]] <- list(x[[i]], y[[i]]) 
    }
    z
}
E <- zip(A, B)

lapply(E, function(x) f(x[[1]], x[[2]]))

[[1]]
[1] 0

[[2]]
[1] 2

 ...

Answer 1

我认为您正在寻找 mapply：

   ‘mapply’ is a multivariate version of ‘sapply’.  ‘mapply’ applies
     ‘FUN’ to the first elements of each ...  argument, the second
     elements, the third elements, and so on.  Arguments are recycled
     if necessary.

对于您的示例，请使用 mapply(f, A, B)

Answer 2

我今天遇到了类似的问题。在学习了 func maply 的用法之后，我现在知道如何解决它了。

maply 太酷了！

这是一个例子：

en = c("cattle", "chicken", "pig")
zh = c("牛",      "鸡",      "猪")

dict <- new.env(hash = TRUE)
Add <- function(key, val) dict[[key]] <- val

mapply(Add, en, zh)
##  cattle chicken     pig 
##    "牛"    "鸡"    "猪"

Answer 3

我认为你可以用我所说的“隐式循环”（这个名字并没有完全击中它，但无论如何）来做到这一点，考虑到你可以在 *apply 中循环向量：

OUT <- lapply(1:10, function(x) (A[[x]]^2 + B[[x]]))

或

OUT <- lapply(1:10, function(x) f(A[[x]], B[[x]]))

注意然后您还可以使用 vapply （或“sapply”）进行输出管理（即，如果您不需要列表）。

（顺便说一句，我没有通过 zip 函数得到你想要的东西，所以如果我错过了你的观点，我很抱歉。）