如何用r语言分组求均值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

语文  数学   性别
99      98       女
99      97       女
99      97       男
99      96        男

如何按性别分别求均值？

希望的到的结果：
语文 数学 性别
99     97.5  女
99     96.5  男

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：R语言 如何用 如何

用tapply（）函数就能很容易解决，比如：

1. a<-data.frame(l=c(99,99,78,56,33,27),m=c(98,53,27,56,65,98),s=c("m","f","m","m","f","f"))  # 创建一个测试用数据框

复制代码

看看a，内容如下：
> a  
     l  m s
1 99 98 m
2 99 53 f
3 78 27 m
4 56 56 m
5 33 65 f
6 27 98 f
然后用tapply来算语文（l）的均值

1. tapply(a[,1],a[,3],mean)

复制代码

返回结果：
       f        m
53.00000 77.66667

推荐你看《R语言编程的艺术》里面有详解

谢谢，因为我想对多列求，而tapply只能对一列求

我又在网上查了一个方法aggregate（a[,1:2],list(a[,3]),mean)   

我又在网上查了一个方法aggregate（a[,1:2],list(a[,3]),mean)   

1. a<-data.frame(l=c(99,99,78,56,33,27),m=c(98,53,27,56,65,98), s=c("m","f","m","m","f","f"))  
   
2. a.mean  <- aggregate(cbind(l, m) ~ s, data = a, FUN = "mean")
   
3. a.mean

复制代码

结果

1. > a<-data.frame(l=c(99,99,78,56,33,27),m=c(98,53,27,56,65,98), s=c("m","f","m","m","f","f"))  
   
2. > a.mean  <- aggregate(cbind(l, m) ~ s, data = a, FUN = "mean")
   
3. > a.mean
   
4.   s        l        m
   
5. 1 f 53.00000 72.00000
   
6. 2 m 77.66667 60.33333
   
7. >

复制代码

是的，tapply只对向量起作用，你找到aggregate确实管用，排版也不错（先多谢），此外，我还可以提供两种方法（都是那本书里的）：

1. # 方法一，用split函数
   
2. lapply(split(a[,1:2],a$s),colMeans)
   
3. # 方法二，用by函数
   
4. by(a[,1:2],a$s,colMeans)

复制代码

不过输出的格式一般像如下：

1. a$s: f
   
2. l  m
   
3. 53 72
   
4. -----------------------------------------------------
   
5. a$s: m
   
6.        l        m
   
7. 77.66667 60.33333

复制代码

在你的案例中这两个函数没什么优势，但是如果需要用到summary（）这样的函数时，by（）和split（）的输出排版就有优势了。

学习了

用dplyr包吧

library(dplyr)
group_by(data, sex) %>% summarize_each(funs(mean), var1, var2, var3...)