Does this do it:

> testlist <- list(
+   shape=c(0, 0, 2),
+  cell.fill=c("red","blue","green"),
+   back.fill=rep("white",3),
+   scale.max=rep(100,3)
+   )
>
> wanted <- lapply(seq(length(testlist[[1]])), function(x){
+     # iterate for each element of the list
+     result <- lapply(names(testlist), function(.name){
+         list(testlist[[.name]][x])
+     })
+     names(result) <- names(testlist)
+     result
+ })
> dput(wanted)
list(structure(list(shape = list(0), cell.fill = list("red"),
    back.fill = list("white"), scale.max = list(100)), .Names = c("shape",
"cell.fill", "back.fill", "scale.max")), structure(list(shape = list(
    0), cell.fill = list("blue"), back.fill = list("white"),
    scale.max = list(100)), .Names = c("shape", "cell.fill",
"back.fill", "scale.max")), structure(list(shape = list(2), cell.fill =
list(
    "green"), back.fill = list("white"), scale.max = list(100)), .Names =
c("shape",
"cell.fill", "back.fill", "scale.max")))
>
>


On Fri, Jan 15, 2010 at 8:09 AM, Michael Friendly <friendly@yorku.ca> wrote:

> I have a list of vectors, all forced to be the same length:
>
> testlist <- list(
>   shape=c(0, 0, 2),
>  cell.fill=c("red","blue","green"),
>   back.fill=rep("white",3),
>   scale.max=rep(100,3)
>   )
> > str(testlist)
> List of 4
> $ shape    : num [1:3] 0 0 2
> $ cell.fill: chr [1:3] "red" "blue" "green"
> $ back.fill: chr [1:3] "white" "white" "white"
> $ scale.max: num [1:3] 100 100 100
> >
>
> I need to 'transpose' them into a list of lists with named values like so:
>
> wanted <- list(
>   list(shape=0, cell.fill="red", back.fill="white", scale.max=100),
>   list(shape=0, cell.fill="blue", back.fill="white", scale.max=100),
>   list(shape=2, cell.fill="green", back.fill="white", scale.max=100)
>   )
> > str(wanted)
> List of 3
> $ :List of 4
>  ..$ shape    : num 0
>  ..$ cell.fill: chr "red"
>  ..$ back.fill: chr "white"
>  ..$ scale.max: num 3
> $ :List of 4
>  ..$ shape    : num 0
>  ..$ cell.fill: chr "blue"
>  ..$ back.fill: chr "white"
>  ..$ scale.max: num 3
> $ :List of 4
>  ..$ shape    : num 2
>  ..$ cell.fill: chr "green"
>  ..$ back.fill: chr "white"
>  ..$ scale.max: num 3
> >
>
> How can I do this in general?
>
> --
> Michael Friendly     Email: friendly AT yorku DOT ca Professor, Psychology
> Dept.
> York University      Voice: 416 736-5115 x66249 Fax: 416 736-5814
> 4700 Keele Street    http://www.math.yorku.ca/SCS/friendly.html
> Toronto, ONT  M3J 1P3 CANADA
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?

	[[alternative HTML version deleted]]

