r - 编写一个函数来计算 R 中数据帧中列的平均值

Question

我必须通过编写一个函数然后应用它来计算数据框中列的平均值。我知道使用 mean 和 apply 很容易做到这一点，但我需要编写自己的函数。我已经做了很多尝试，但似乎无法做到这一点。以下是我的 3 个尝试。我是 R 的初学者。如果有任何建议，我将不胜感激。

mean_fun<-function(x){
  mean_c[i]= sum(x[1:dim(x)],na.rm=TRUE)/length(x[1:dim(x)])
  return(mean_c[i])
}


mean_fun<-function(x){
  for( i in 1:ncol(x)){
    s=sum(x[1:i],na.rm=TRUE)
    l=dim(x[1:i])
    mean_c=s/l
    return (mean_c)
  }


mean_fun<-function(x){
  x=rbind(x,newrow)
  for(i in 1:ncol(x)){
    x[newbottomrownumber,i]=sum[i]/length[i]}
  return(x[1303,])
}

Answer 1

假设数据框中的所有列都是数字，这是对第一个函数的调整，其中 x 是向量(mydataframe 中的列)。

mean_fun<-function(x){
    mean_c= sum(x,na.rm=TRUE)/length(!is.na(x))
    return(mean_c)
}

apply(mydataframe,2,mean_fun)