将“by”转换为“by” R 中数据框的对象

Question

我正在使用 R 中的“by”函数来分割数据框并将函数应用于不同的部分，如下所示：

pairwise.compare <- function(x) {
Nright <- ...
Nwrong <- ...
Ntied <- ...
return(c(Nright=Nright, Nwrong=Nwrong, Ntied=Ntied))
}
Z.by <- by(rankings, INDICES=list(rankings$Rater, rankings$Class), FUN=pairwise.compare)

结果 (Z.by) 看起来像这样：

: 4 
: 357 
Nright Nwrong Ntied
     3      0     0
------------------------------------------------------------
: 8 
: 357 
NULL
------------------------------------------------------------
: 10 
: 470 
Nright Nwrong Ntied
     3      4     1 
------------------------------------------------------------ 
: 11 
: 470 
Nright Nwrong Ntied
    12      4     1

我想要的是将此结果转换进入数据帧（不存在 NULL 条目），因此它看起来像这样：

  Rater Class Nright Nwrong Ntied
1     4   357      3      0     0
2    10   470      3      4     1
3    11   470     12      4     1

我该怎么做？

Answer 1

by 函数返回一个列表，因此您可以执行以下操作：

data.frame(do.call("rbind", by(x, column, mean)))

Answer 2

考虑在 plyr 包中使用 ddply 而不是 by。它处理将列添加到数据框的工作。

Answer 3

旧线程，但对于搜索此主题的任何人：

analysis = by(...)
data.frame(t(vapply(analysis,unlist,unlist(analysis[[1]]))))

unlist() 将获取 by() 输出的元素（在本例中为 analysis) 并将其表示为命名向量。
vapply() 取消列出analysis 的所有元素并输出结果。它需要一个虚拟参数来了解输出类型，这就是 analysis[[1]] 的用途。如果可能的话，您可能需要添加一个检查来确保分析不为空。
每个输出都是一列，因此 t() 将其转置到所需的方向，其中每个分析条目都成为一行。

Answer 4

这扩展了 Shane 使用 rbind() 的解决方案，但还添加了标识组的列并删除了 NULL 组 - 问题中要求的两个功能。通过使用基础包函数，不需要其他依赖项，例如 plyr。

simplify_by_output = function(by_output) {
    null_ind = unlist(lapply(by_output, is.null))  # by() returns NULL for combinations of grouping variables for which there are no data. rbind() ignores those, so you have to keep track of them.
    by_df = do.call(rbind, by_output)  # Combine the results into a data frame.
    return(cbind(expand.grid(dimnames(by_output))[!null_ind, ], by_df))  # Add columns identifying groups, discarding names of groups for which no data exist.
}

Answer 5

我会做

x = by(data, list(data$x, data$y), function(d) whatever(d))
array(x, dim(x), dimnames(x))