Iterieren über die Schlüssel/Wert-paar aus einer Liste()

Ich würde gerne wissen, wie ich zum iterieren über die Schlüssel/Wert-paar aus einer Liste ein Objekt in R, wie das Beispiel unten:

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]])

Gibt es eine Möglichkeit zu vermeiden, die for-Schleife (mit lapply() oder so). Wäre es schneller?

Dank!

InformationsquelleAutor der Frage caas | 2010-12-21

  1. 13

    Die beste Lösung von allen ist, rufen Sie einfach paste direkt ohne Schleife (es ist bereits vektorisiert):

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

    Eine ähnliche Frage zuvor fragte der R-Hilfemit einigen kreativen Lösungen. lapply nicht die Namen innerhalb der Funktion. Diese Funktion wurde von Romain Francois basiert auf etwas, das von 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(...)) 
}

    Hier ist ein Beispiel für die Verwendung:

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

    InformationsquelleAutor der Antwort Shane

  2. 6

    Dies sollte es tun für Sie: 

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

    InformationsquelleAutor der Antwort Prasad Chalasani

Schreibe einen Kommentar