我想知道如何迭代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()等)。它会更快吗?
谢谢!
答案 0 :(得分:15)
最好的解决方案就是直接在没有循环的情况下直接调用paste
(它已经被矢量化了):
> paste(toto, names(toto))
[1] "my name is a" "I'm called b" "name: c"
类似的问题previously asked on R-Help,有几个创意解决方案。 lapply
无法在函数中显示名称。这个功能是由Romain Francois根据Thomas Lumley提供的东西提供的:
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"
答案 1 :(得分:6)
这应该适合你:
do.call(paste, list(toto, names(toto) ))
答案 2 :(得分:0)
R 人员通常不喜欢直接回答一个简单的问题。
这是您如何迭代列表中的键/值对:
for (name in names(myList)) {
print(name)
print(myList[[name]])
}