学习笔记（20):R语言入门基础-tapply函数多分组

立即学习: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)