r - 如何按 R 中的分组列求和？

Question

这是我的意见。一个具有 n 列的数据框，以及一个将每个 id 分配给一个组的辅助数据框。

df <- data.frame(
  a1 = c(1,2,3), 
  a2 = c(2,3,4), 
  b1 = c(4,5,6), 
  b2 = c(5,6,7)
)
aux <- data.frame(
  id = c("a1", "a2", "b1", "b2"),
  group = c("a", "a", "b", "b")
)

获得此输出的通用方法是什么？ (将 a1 + a2 和 b1 + b2 相加)

desired_output <- data.frame(
  a = c(3,5,7),
  b = c(9,11,13)
)

我尝试过使用 dplyr::group_by 和 tidyr::unite，但我还没有使用它。

Answer 1

为了避免拆分数据帧并通过代码传递一长串数据帧，您可以只使用索引:

cols <- split(aux$id, aux$group)

data.frame(lapply(cols, function(i) rowSums(df[i])))