请教：想要得到一个data.frame，在循环开始时确定行列数，然后循环过程中向里面增加内容，等到循环完毕刚好填完。
f<-function(directory,id=1:332){
  files_list<-list.files(directory,full.names=T)
  row_count<-length(id)
  dat<-data.frame(matrix(NA,row_count,2))
  colnames(dat)<-c("id","nobs")
  for (i in id){
    dat<-read.csv(files_list[i])
  m<-na.omit(dat)
u<-data.frame(id=i,nobs=nrow(m)))
  }
u

}
这是我的程序，如果id为一个数字的话可以运行，要是id=23:45这种的话，就不能一一展示了