r - 对具有相似名称的列逐行求和

Question

我有一个数据框，它有很多这样的列:

data <- data.frame (a.1 = 1:5, a.2b = 3:7, a.5 = 5:9, bt.16 = 4:8, bt.12342 = 7:11)

我想要一个结果，列的总和具有相同前缀的变量。在这个例子中，我想返回一个数据帧:
a = (9:13), bt = (11:15)
我的真实数据集要复杂得多(我想将具有不同 utm 参数的网页的页面查看计数结合起来)，但针对这种情况的解决方案应该让我走上正轨。

Answer 1

这是一个带有基础 R 的解决方案:

> prefixes = unique(sub("\\..*", "", colnames(data)))
> sapply(prefixes, function(x)rowSums(data[,startsWith(colnames(data), x)]))
      a bt
[1,]  9 11
[2,] 12 13
[3,] 15 15
[4,] 18 17
[5,] 21 19