Re: [R] Re-sort list of vectors

From: Jan Hummel <Hummel_at_mpimp-golm.mpg.de>
Date: Tue 16 Aug 2005 - 21:06:33 EST


Dear list members,

thank all of you for replying to my question. Finally I came up with 3 working solutions, which I ask you to rank now in terms of used resources, computation speed, "design questions" etc.

x <- list("1" = c(a = 1, b = 2, c = 3), "2" = c(d = 4, b = 5, e = 6))

#looping; Thanks to Jim Holtman

solution1<-function(x){

	Result <- list()
	for (i in names(x)){
		for (j in names(x[[i]])){
			Result[[j]][[i]] <- x[[i]][[j]]
		}
	}
	return(Result)

}

#lapplying function within function; derived from Solution1
solution2<-function(x){

        temporaryList <- list()         

lapply(names(x),function(y){lapply(names(x[[y]]),function(z){temporaryLi st[[z]][[y]]<<-x[[y]][[z]]})})

        return(temporaryList)
}

#vectorized; Thanks to Dimitris Rizopoulos
solution3<-function(x){

        y <- data.frame(name = rep(names(x), sapply(x, length)), value = unlist(x))

        lapply(split(y, unlist(lapply(x, names))), function(z){ res <- z$value; names(res) <- z$name; return(res) }) }

I would prefer solution2(), because ... I don't know.

Thanks in advance!

        Jan



R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Tue Aug 16 21:12:23 2005

This archive was generated by hypermail 2.1.8 : Sun 23 Oct 2005 - 15:23:01 EST