fingers too fast; didn't need the enclosing 'list':
> 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){
+ testlist[[.name]][x]
+ })
+ names(result) <- names(testlist)
+ result
+ })
> dput(wanted)
list(structure(list(shape = 0, cell.fill = "red", back.fill = "white",
scale.max = 100), .Names = c("shape", "cell.fill", "back.fill",
"scale.max")), structure(list(shape = 0, cell.fill = "blue",
back.fill = "white", scale.max = 100), .Names = c("shape",
"cell.fill", "back.fill", "scale.max")), structure(list(shape = 2,
cell.fill = "green", back.fill = "white", scale.max = 100), .Names =
c("shape",
"cell.fill", "back.fill", "scale.max")))
>
On Fri, Jan 15, 2010 at 8:09 AM, Michael Friendly <frien...@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]]
______________________________________________
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
and provide commented, minimal, self-contained, reproducible code.
