Question

我有一个这样的数据框：

data <- read.table(text="group;  yr1;   yr2;    val
  a;        1945;   1946;   20
  a;        1945;   1946;   50
  a;        1947;   1948;   40
  b;        1926;   1927;   45
  b;        1927;   1928;   -10
  b;        1927;   1928;   -15 ", sep=";", header=T, stringsAsFactors = FALSE)

最好的方法是按小组总结每对年份的val列，以便结果如下所示？

group   yr1     yr2     val
a       1945    1946    70
a       1946    1947    40
b       1926    1927    45
b       1927    1928    -25

Answer 1

在基地R：

aggregate(val ~ group + yr1 + yr2, data, sum)
#  group  yr1  yr2 val
#1     b 1926 1927  45
#2     b 1927 1928 -25
#3     a 1945 1946  70
#4     a 1947 1948  40

Answer 2

尝试data.table更大的数据集

library(data.table)
setDT(data)[, list(val=sum(val)), by=list(group, yr1, yr2)]
#    group  yr1  yr2 val
#1:     a 1945 1946  70
#2:     a 1947 1948  40
#3:     b 1926 1927  45
#4:     b 1927 1928 -25

在R中按值和组汇总列

2 个答案: