按组计算平均值

Question

按组计算平均值我有一个类似于此的大数据框架：df <- data.frame(dive=factor(sample(c("dive1","dive2"),10,replace=TRUE)),speed=runif(10))> df    dive      speed1  dive1 0.806684902  dive1 0.533495843  dive2 0.075717844  dive2 0.395186285  dive1 0.845579556  dive1 0.691214437  dive1 0.381249508  dive2 0.225361269  dive1 0.0470475010 dive2 0.93561651我的目标是当另一列等于某一值时，对一列的值进行平均值，并对所有值重复此方法。例如，在上面的示例中，我想返回列的平均值speed对于列的每个唯一值dive..所以当dive==dive1，平均为speed的每个值都是这样吗？dive.

Answer 1

aggregate(speed~dive,data=df,FUN=mean)

   dive     speed

1 dive1 0.7059729

2 dive2 0.5473777

Answer 2

df %>% group_by(dive) %>% summarise(percentage = mean(speed))

Source: local data frame [2 x 2]

   dive percentage

1 dive1  0.4777462

2 dive2  0.6726483