R tapply()

tapply(x,f,g)
x向量组
f（factor)因子或因子列表
g函数
将x按f分组的到子向量组并应用函数g

x <- c("男", "女", "男", "男",  "女")
sex <- factor(x)
h <- c(165, 170, 168, 172, 159)
tapply(h, sex, mean)
##       男       女 
## 168.3333 164.5000