[align=justify]
<br />
dir.csv <- "d:/test/csv/" #指的是你csv文件所在文件夹的绝对路径，不是具体的文件名<br />
csv.line <- 100 #数字，不用加引号，比如100<br />
cl.need <- c(1,2)#同上，比如1，2<br />
csv.df <- data.frame(rep(0,csv.line))<br />
for(i in dir(dir.csv)){<br />
file.i <- paste(dir.csv,"/",i,sep="")<br />
csv.i <- read.csv(file.i)[,cl.need]<br />
csv.df <- data.frame(csv.df,csv.i)<br />
}<br />
csv.df <- csv.df[,-1]<br />
如果用list的话，可以这样：
<br />
dir.csv <- "d:/test/csv/" #指的是你csv文件所在文件夹的绝对路径，不是具体的文件名<br />
cl.need <- c(1,2)#同上，比如1，2<br />
csv.lst <- list()<br />
for(i in dir(dir.csv)){<br />
file.i <- paste(dir.csv,"/",i,sep="")<br />
csv.i <- read.csv(file.i)[,cl.need]<br />
csv.lst <- c(csv.lst,as.list.data.frame(csv.i))<br />
}<br />
真的很着急的话，就找个比较熟悉的人帮你做吧，呵呵，毕竟这个才是第一步，你下面接着还要做一些分析的。
