立即学习:https://edu.csdn.net/course/play/24913/285724?utm_source=blogtoedu
tapply函数多分组
d = data.frame(hours = sample(1:12, 10, replace = TRUE),sex = c("男", "女", "男", "女", "男", "女", "男", "女", "男","女"),age = sample(10:26, 10, replace = TRUE))
d$类别 = ifelse(d$age > 18, "成年", "未成年")
d
tapply(d$hours,list(d$sex,d$类别),mean)
对应结果:
hours sex age 类别
1 9 男 23 成年
2 9 女 25 成年
3 2 男 26 成年
4 5 女 26 成年
5 6 男 11 未成年
6 12 女 21 成年
7 10 男 24 成年
8 9 女 23 成年
9 12 男 25 成年
10 9 女 14 未成年
成年 未成年
男 8.25 6
女 8.75 9