小编tom*_*mme的帖子

我读了多个.csv,现在想要在循环中更改所有列名.我只能找到如何更改单个表的名称:

colnames(w01_10temp) <- c("date", "time", "temp", "na") 

我还需要R.中的.csv文件.之前我有:

filenames <- list.files(path=getwd()) 
numfiles <- length(filenames) 
for (all_temp in c(1:numfiles)) {
filenames[all_temp] <- paste(filenames[all_temp],sep="")
assign(gsub([.]ASC$","temp",filenames[all_temp]),read.delim2(filenames[all_temp], fileEncoding="ISO-8859-15", skip = 4))    }

所以我尝试将lapply放入循环中,但没有成功:

for (all_temp in lapply(filenames,myReadTable)) {
  filenames[all_temp] <- paste(filenames[all_temp],sep="")
  }

对于R中的多个表,我想对原始的5到1秒的间隔插入字符串"date","time"和"temp":

旧:

date         time     temp
1 22.05.11 16:00:00 23.653 
2 22.05.11 16:00:05 23.541 
...

新:

date         time     temp 
1 22.05.11 16:00:00 23.653 
2 22.05.11 16:00:01 23.631 
3 22.05.11 16:00:02 23.609
...

我怎样才能做到这一点？谢谢你的帮助.