我必须通过编写一个函数然后应用它来计算数据框中列的平均值。我知道使用 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,])
}
最佳答案
假设数据框中的所有列都是数字,这是对第一个函数的调整,其中 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)
关于r - 编写一个函数来计算 R 中数据帧中列的平均值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43059820/