使用tapply with FUN = function(x){}

Question

在我的任务中，我想按性别来找出温度的平均值。我们可以通过命令来完成这个任务。此外，我也不被允许使用卑鄙的命令：

tapply(df$temperature,df$gender,FUN = function(x){sum(x)/length(df[,1])})

但它给了我错误的结果。它只差2的结果，而不是寻找两者的平均性别。我怎么才能解决呢？因为有了聚合函数，一切都是正确的：

  aggregate(df$temperature,by = list(df$gender),function(x){sum (x)/length(x)})

Answer 1

确认sum(x)/length(x)是这里的方法：

创建模拟数据集：

set.seed(1)
d<-data.frame(temperature=rnorm(1000,500,20),
              gender=rep(c('M','F'),500))

用自定义平均函数tapply按性别计算平均温度

> tapply(d$temperature, d$gender, function(x){ sum(x)/length(x)})
       F        M 
500.0884 499.4457 

确认这与基mean()函数匹配：

> mean(d$temperature[d$gender=='F'])
[1] 500.0884
> mean(d$temperature[d$gender=='M'])
[1] 499.4457