按组计算平均值

Question

按组计算平均值

我有一个类似于此的大数据框架：

df <- data.frame(dive=factor(sample(c("dive1","dive2"),10,replace=TRUE)),speed=runif(10))

> df

    dive      speed

1  dive1 0.80668490

2  dive1 0.53349584

3  dive2 0.07571784

4  dive2 0.39518628

5  dive1 0.84557955

6  dive1 0.69121443

7  dive1 0.38124950

8  dive2 0.22536126

9  dive1 0.04704750

10 dive2 0.93561651

我的目标是当另一列等于某一值时，对一列的值进行平均值，并对所有值重复此方法。例如，在上面的示例中，我想返回列的平均值speed对于列的每个唯一值dive..所以当dive==dive1，平均为speed的每个值都是这样吗？dive.

Answer 1

aggregate(speed~dive,data=df,FUN=mean)&nbsp; &nbsp;dive&nbsp; &nbsp; &nbsp;speed1 dive1 0.70597292 dive2 0.5473777

Answer 2

df %>% group_by(dive) %>% summarise(percentage = mean(speed))Source: local data frame [2 x 2]&nbsp; &nbsp;dive percentage1 dive1&nbsp; 0.47774622 dive2&nbsp; 0.6726483