遍历从列表（）键/值对

我想知道如何可以从R中一个列表对象遍历一个密钥/值对，如下面的例子：遍历从列表（）键/值对

toto <- list(a="my name is",b="I'm called",c="name:") 
myfun <- function(key,value) paste(value,key) 
for(key in names(toto)) toto[key] <- myfun(key,toto[[key]])

是有一种方法可以避免for循环（使用lapply（）等）。会更快吗？

谢谢！

来源

2010-12-21 caas

只要记住，`lapply`仍然涉及迭代，而它很可能比'for'快一点，但情况并非总是如此（它肯定不等于向量化函数）。 http://stackoverflow.com/questions/2275896/is-rs-apply-family-more-than-syntactic-sugar/2276001#2276001 – Shane 2010-12-21 14:27:11

所有的最好的解决办法是简单地调用paste的情况下直接循环（它已经向量化）：

> paste(toto, names(toto)) 
[1] "my name is a" "I'm called b" "name: c"

类似的问题previously asked on R-Help，有几个创意解决方案。 lapply无法在功能中显示名称。由托马斯·拉姆利基于该功能是由罗曼·弗朗索瓦提供的东西：

yapply <- function(X,FUN, ...) { 
    index <- seq(length.out=length(X)) 
    namesX <- names(X) 
    if(is.null(namesX)) 
    namesX <- rep(NA,length(X)) 

    FUN <- match.fun(FUN) 
    fnames <- names(formals(FUN)) 
    if(! "INDEX" %in% fnames){ 
    formals(FUN) <- append(formals(FUN), alist(INDEX=)) 
    } 
    if(! "NAMES" %in% fnames){ 
    formals(FUN) <- append(formals(FUN), alist(NAMES=)) 
    } 
    mapply(FUN,X,INDEX=index, NAMES=namesX,MoreArgs=list(...)) 
}

下面是使用的例子：

> yapply(toto, function(x) paste(x, NAMES)) 
      a    b    c 
"my name is a" "I'm called b"  "name: c"

来源

2010-12-21 14:16:45 Shane

“mapply”在OP案例中的基本用法是`mapply（myfun，key = names（toto），value = toto）`。 – Marek 2010-12-21 14:37:46

这应该为你做它：

do.call(paste, list(toto, names(toto)))

来源

2010-12-21 14:15:39

没有必要在这里做。粘贴（托托，名称（托托））的作品一样好。而且在我眼中更加优雅。 – 2010-12-21 14:33:05

遍历从列表（）键/值对

回答

相关问题