java变量组_如何按组对变量求和？

rcs提供的答案很简单 . 但是，如果您正在处理更大的数据集并需要提高性能，则可以采用更快的替代方法：

library(data.table)

data = data.table(Category=c("First","First","First","Second","Third", "Third", "Second"),

Frequency=c(10,15,5,2,14,20,3))

data[, sum(Frequency), by = Category]

# Category V1

# 1: First 30

# 2: Second 5

# 3: Third 34

system.time(data[, sum(Frequency), by = Category] )

# user system elapsed

# 0.008 0.001 0.009

让我们使用data.frame和上面的内容将它与同一个东西进行比较：

data = data.frame(Category=c("First","First","First","Second","Third", "Third", "Second"),

Frequency=c(10,15,5,2,14,20,3))

system.time(aggregate(data$Frequency, by=list(Category=data$Category), FUN=sum))

# user system elapsed

# 0.008 0.000 0.015

如果你想保留列，这就是语法：

data[,list(Frequency=sum(Frequency)),by=Category]

# Category Frequency

# 1: First 30

# 2: Second 5

# 3: Third 34

对于较大的数据集，差异将变得更加明显，如下面的代码所示：

data = data.table(Category=rep(c("First", "Second", "Third"), 100000),

Frequency=rnorm(100000))

system.time( data[,sum(Frequency),by=Category] )

# user system elapsed

# 0.055 0.004 0.059

data = data.frame(Category=rep(c("First", "Second", "Third"), 100000),

Frequency=rnorm(100000))

system.time( aggregate(data$Frequency, by=list(Category=data$Category), FUN=sum) )

# user system elapsed

# 0.287 0.010 0.296

对于多个聚合，您可以按如下方式组合 lapply 和 .SD

data[, lapply(.SD, sum), by = Category]

# Category Frequency

# 1: First 30

# 2: Second 5

# 3: Third 34