其实都是一个问题 请查查dir()函数的用法 还有 就是list的用法
比较好理解的例子：
<br />
setwd("D:/data")<br />
fileName <- dir()<br />
N=length(fileName)</p>
<p>datalist <- vector("list", N) # 建立一个空表</p>
<p>for(i in 1:N){<br />
datalist[[i]]=read.table(fileName[i],header=TRUE)<br />
}<br />
</p>
应用lapply函数后 更简洁的例子
<br />
setwd("D:/data")<br />
fileName <- dir()</p>
<p>read.file <- function(File){<br />
read.table(File,header=TRUE)<br />
} # 定义读取数据的函数</p>
<p>datalist <- lapply(fileName,read.file)<br />
</p>
datalist是list型对象
<br />
> datlist<br />
[[1]]<br />
a b<br />
1 1.7 2.5<br />
2 2.7 3.5<br />
3 3.7 4.5<br />
4 4.7 5.5<br />
5 5.7 6.5</p>
<p>[[2]]<br />
a b<br />
1 5.7 6.5<br />
2 6.7 7.5<br />
3 7.7 8.5<br />
4 8.7 9.5<br />
5 9.7 10.5<br />
</p>
R里的rev函数好像不是你要的效果，试试下面的
<br />
Rev <- function(x){<br />
x[nrow(x):1,]<br />
}<br />
</p>
<br />
rev.data <- lapply(datalist,Rev)<br />
</p>
