如何拆分data.frame列表并将函数应用于一列？

Question

关于应用函数，我有一个小问题。 例如，我有：

l <- list(a = data.frame(A1=rep(10,5),B1=c(1,1,1,2,2),C1=c(5,10,20,7,30)),
          b = data.frame(A1=rep(20,5),B1=c(3,3,4,4,4),C1=c(3,5,10,20,30)))

我想为每个B1找到最小C1。 结果应该是

$a
  A1 B1 C1
  10  1  5
  10  2  7

$b
  A1 B1 C1
  20  3  3
  20  4  10

我知道如何使用'for'来实现它，但它必须是'lapply'更简单的方法，但我无法使它工作。

请帮忙

Answer 1

如何结合lapply和tapply ：

lapply(l, function(i) tapply(i$C1, i$B1, min))
$a
1 2 
5 7 

$b
3  4 
3 10 

---

思考多个操作的诀窍是将任务拆分为多个位。 所以，

1. 每个B1最小C1 。 我们如何为单个数据框架执行此操作？

    i = l[[1]] tapply(i$C1, i$B1, min) 

2. 列表中的每个元素？ 只需使用lapply ：

    lapply(l, function(i) tapply(i$C1, i$B1, min)) 

如果您无法执行第1步，则无法管理第2步。

Answer 2

最近已经屈服于data.table包的警笛歌曲以及它的多功能性和速度的组合，我做了另一个解决方案：

library(data.table)
lapply(l, function(dat) {
    data.table(dat, key="B1,C1")[list(unique(B1)), mult="first"]
})

如果保留原始列顺序很重要，由于某种原因， data.table()调用可以由setcolorder(..., names(dat))包装。

Answer 3

这是另一种匹配您所需输出的方法：

lapply(l, function(x) {
  temp <- ave(x[["C1"]], x["B1"], FUN = min)
  x[x[["C1"]] == temp, ]
})
# $a
#   A1 B1 C1
# 1 10  1  5
# 4 10  2  7
# 
# $b
#   A1 B1 C1
# 1 20  3  3
# 3 20  4 10

Answer 4

您也可以从plyr / reshape2工具箱中尝试llply + dcast：

library(reshape2)
library(plyr)

    l <- list(a = data.frame(A1=rep(10,5),B1=c(1,1,1,2,2),C1=c(5,10,20,7,30)),
              b = data.frame(A1=rep(20,5),B1=c(3,3,4,4,4),C1=c(3,5,10,20,30)))

    llply(l, function (x) {dcast (x, A1+B1~., value.var="C1", min)})