R data.frame：按向量分组的选定列的行总和

Question

我有一个带有一系列数字列的数据框，两边都被（无关）字符列包围。 我想获得一个新的数据框，该框保留不相关列的位置，并通过某个分组矢量将数字列彼此相加（或按组将其他一些行功能应用于数据框）。 例：

sample = data.frame(cha1 = c("A","B"),num1=1:2,num2=3:4,num3=11:12,num4=13:14,cha2=c("C","D"))
> sample
  cha1 num1 num2 num3 num4 cha2
1    A    1    3   11   13    C
2    B    2    4   12   14    D

以获取目标

> goal
  cha1 X1 X2 cha2 
1    A  4 24    C
2    B  6 26    D

即我已经根据分组向量gl(2,2,4) = (1,1,2,2) [levels: 1,2]对4个数字列求和

对于纯数字数据框，我发现了以下方法：

sample_num = sample[,2:5] #select numeric columns
data.frame(t(apply(sample_num,1,function(row) tapply(row, INDEX=gl(2,2,4),sum))))

我可以将其与重新插入字符列结合起来以得到预期的结果，但是我确实在寻找一种更优雅的方法。 我对plyr方法（如果有的话）特别感兴趣，因为我正尝试迁移到plyr进行所有数据帧操作。 我想第一步是将数据帧转换为长格式，但是我不知道如何从那里开始。

一个“绝对”的要求是我不能没有gl(n,k,l)分组方法，因为我需要将此方法应用于广泛的数据帧和分组因子。

编辑：为简单起见，假设我知道哪些列是相关的数字列。 我不在乎如何选择它们，而是在不弄乱原始数据帧结构的情况下如何进行分组求和。

谢谢！

Answer 1

Grpindex<-gl(2,2,4)    
goal<-cbind.data.frame(sample["cha1"],(t(rowsum(t(sample[,2:5]), paste0("X",Grpindex)))),sample["cha2"])

输出：

  cha1 X1 X2 cha2
1    A  4 24    C
2    B  6 26    D