Loops 使用deparse在循环内命名

我试图写几个表来计算数据帧中不同列上的colMeans。该函数工作正常，但命名有问题：

function.test<-function(a,b,df)
  {for (i in a:b) 
     write.table(
      as.data.frame(
        lapply(
          split(df, df[,i]), colMeans)
        ),
      file=paste("E:\\R\\Outputs\\colMeans",deparse(i),deparse(df),".csv"
             ),
      sep=",",row.names=T,col.names=NA
      )
   }

---

function.testok这次尝试和错误帮助：

deparse(i),deparse(substitute(df))  

deparse(i),deparse(substitute(df))