立即学习:https://edu.csdn.net/course/play/24913/285724?utm_source=blogtoedu
>demo<data.frame(list(gender=c("men","woman","man","woman"),+age=c(19,18,15,17),hours=c(5,3,6,4)))
>demo
>demo$成年<-ifelse(demo$age>18,"成年","未成年")
>demo
tapply(demo$hour,list(demo$gender,demo$成年),mean)
tapply(demo$hour,list(demo$sex,demo$age),sum)