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