如何将一个向量分组成一个向量列表？

Question

dressId        color 
6              yellow 
9              red
10             green 
10             purple 
10             yellow 
12             purple 
12             red 

[[1]]
yellow  

[[2]] 
red    

[[3]] 
green purple yellow 

[[4]] 
purple red 

result <- NULL 
while(blah blah) 
{
    some code which creates the vector called "colors" 
    result[[dressCounter]] <- colors 
    dressCounter <- dressCounter + 1
}

在努力使所有必要的计数变量正确后，我沮丧地发现它不起作用。第一次，颜色是

[1] yellow
Levels: green yellow purple red blue

它被强制为一个整数，因此result变成2。

在第二个循环重复中，colors只包含红色，result变成一个简单的整数向量，[1]24。

[1] green  purple yellow
Levels: green yellow purple red blue 

result[[3]] <- colors

我做错了什么？是否有一种方法可以初始化result，这样它就不会被转换成一个数字向量，而是变成一个向量列表？

还有，除了“滚我自己的”，还有别的办法做整件事吗？

Answer 1

split.data.frame是一个很好的组织方法；然后提取颜色分量。

d <- data.frame(dressId=c(6,9,10,10,10,12,12),
               color=factor(c("yellow","red","green",
                              "purple","yellow",
                              "purple","red"),
                 levels=c("red","orange","yellow",
                          "green","blue","purple")))

我想你想要的版本实际上是这样的：

ss <- split.data.frame(d,d$dressId)

通过提取color组件，您可以获得更类似于您所请求的列表的内容：

lapply(ss,"[[","color")