难道用for或者repeat不可以吗？

apply(a,2,mean,na.rm=T)

你可以用For，或者用while啊。然后牵着推出的使用用break就可以。
不然你可以吧你要做的东西告诉我，我写给你。

a<- data.frame(sex=c(1,1,2,2,1,1),
               bq=c(1,2,1,2,2,2),
               age=c(15,16,20,22,14,NA),
               height=c(1.75,1.70,1.65,1.68,1.72,1.80))
aaa<-function(v){
        n<-dim(v)[2]
        for(i in 1:n){
        x<-v[,i]
        cat(mean(x[is.na(x)==0])," , ")
        }
}
v<-matrix(c(a$age,a$height),length(a$age))
aaa(v)
这办法有点儿绕~~~
a.age是啥啊？出错。设定所求变量组矩阵的时候，还可以一个个变矩阵as.matrix(), 然后cbind
以下是全部变量的平均结果：
aaa<-function(v){
        n<-dim(v)[2]
        result<-matrix("",nrow=1,ncol=n)
        for(i in 1:n){
        x<-v[,i]
        result[1,i]<-round(mean(x[is.na(x)==0]),2)
        }
        title<-matrix(dimnames(v)[[2]],nrow=1,ncol=n,byrow=T)
        final<-as.data.frame(rbind(title,result))
        write.csv(final,file="final.csv")
}
aaa(a)

多个变量传递！