集团data.frame由多列

Question

说我有这个data.frame

data <- data.frame(foo = c(1, 1, 2, 2), 
        bar = c(10,10,10,20), 
        baz = c(1, 2, 3, 4), 
        qux = c(5, 6, 7, 8)) 

我想这组由foo和bar列在这个到达：

expected <- list(
    data.frame(foo = c(1, 1), 
      bar = c(10, 10), 
      baz = c(1, 2), 
      qux = c(5, 6)), 
    data.frame(foo = 2, 
      bar = 10, 
      baz = 3, 
      qux = 7), 
    data.frame(foo = 2, 
      bar = 20, 
      baz = 4, 
      qux = 8) 
) 

我可以生成每组有一行，但我找不到MATCH函数;当给定具有列foo,bar,baz,qux的输入帧和具有列foo,bar的过滤器帧时，返回foo,bar单元格的内容匹配的行。

groups <- unique(data[c("foo","bar")]) 
MATCH(data, groups[1,]) == expected[[1]] 
MATCH(data, groups[2,]) == expected[[2]] 
MATCH(data, groups[3,]) == expected[[3]] 

或者更高的水平GROUP函数，它只是返回帧，一个列表，其中列给出的匹配：

GROUP(data, by=c("foo","bar")) == expected 

我来到那个最接近的是

out <- aggregate(. ~ foo + bar, data, list) 

凡单元格baz,qux是列表：

> out 
    foo bar baz qux 
1 1 10 1, 2 5, 6 
2 2 10 3 7 
3 2 20 4 8 
> class(out[,"baz"]) 
[1] "list" 

因此，每个组都是out中的一行，但是如何再次展开此操作，以便out[1,]成为两行的数据帧，如expected[[1]]？

Answer 1

看起来你只是需要split。

选项1：保留“foo”和“bar”组合的所有“级别”，即使它产生空的data.frame。

> split(data, list(data$foo, data$bar)) 
$`1.10` 
    foo bar baz qux 
1 1 10 1 5 
2 1 10 2 6 

$`2.10` 
    foo bar baz qux 
3 2 10 3 7 

$`1.20` 
[1] foo bar baz qux 
<0 rows> (or 0-length row.names) 

$`2.20` 
    foo bar baz qux 
4 2 20 4 8 

选项2：丢弃空“foo”和“棒”相结合的“级别” - 就像你在预期的输出做。

> split(data, list(data$foo, data$bar), drop=TRUE) 
$`1.10` 
    foo bar baz qux 
1 1 10 1 5 
2 1 10 2 6 

$`2.10` 
    foo bar baz qux 
3 2 10 3 7 

$`2.20` 
    foo bar baz qux 
4 2 20 4 8 

Answer 2

从plyrdlply设计出于这样的目的：

require(plyr)  
dlply(data , .(foo , bar)) 

$`1.10` 
    foo bar baz qux 
1 1 10 1 5 
2 1 10 2 6 

$`2.10` 
    foo bar baz qux 
1 2 10 3 7 

$`2.20` 
    foo bar baz qux 
1 2 20 4 8 

Answer 3

试试这个，这就好比@阿难的解决方案，但使用interaction：

> split(data,interaction(data$foo,data$bar)) 
$`1.10` 
    foo bar baz qux 
1 1 10 1 5 
2 1 10 2 6 

$`2.10` 
    foo bar baz qux 
3 2 10 3 7 

$`1.20` 
[1] foo bar baz qux 
<0 rækker> (eller 0-længde row.names) 

$`2.20` 
    foo bar baz qux 
4 2 20 4 8 

> split(data,interaction(data$foo,data$bar), drop=TRUE) 
$`1.10` 
    foo bar baz qux 
1 1 10 1 5 
2 1 10 2 6 

$`2.10` 
    foo bar baz qux 
3 2 10 3 7 

$`2.20` 
    foo bar baz qux 
4 2 20 4 8