Forward_33 你的文件读取路径不对。看 dir() 函数的帮助。
想省事的话,把D:/Temp/wang/
设成工作目录,把要处理的文件都塞进这个目录就行了,代码如下:
setwd(' D:/Temp/wang/' )
filelist <- dir('.', '.csv')
for(j in filelist) {
data1 <- read.csv(j,header=F)
newfile <- subset(data1,select=c(1,2,3,24,25,26,27,28,29,30,31,32,33,34,35,36))
write.csv(newfile, paste0('new_', j)) #另存为新文件
}