R处理文件夹数据

2019独角兽企业重金招聘Python工程师标准>>>

setwd("C:/Users/cuiy/Desktop/ON") 

n<-list.files("DDR") 

l<-length(n) 

for(i in 1:l) 

{ 

f<-paste("C:/Users/cuiy/Desktop/ON/DDR/",n[i],sep="") 

data<-read.csv(file=f,head=F,sep=",") 

data$V15<-round(data[,7]/data[,5],4) 

write.csv(data,file=paste("C:/Users/cuiy/Desktop/ON/",n[i],sep="")) 

next
}

 

转载于:https://my.oschina.net/u/3093769/blog/2247875