zhangyangsmith 发表于 2017-5-7 23:40 
谢谢啦，输出了所有文件名
，若是后面想要依次读取进行操作呢，结果很不对，我的代码这么写的，求指点
setwd("E:/2012沙漠学/qixiang)
a<-dir("E:/2012沙漠学/qixiang",recursive =TRUE,pattern ="^S2017")
for(i in 1:length(a)) {
data <- read.table(file=a
,header=TRUE)
x<-data[,c("V01000","V13201")]
y1<-tapply(V13201,V01000,mean)
y2<-data.frame()
y2<-rbind(y2,y1)
write.table(y2,file="E:/qixiang.txt")
}
扫码加好友，拉您进群
全部版块
我的主页
收藏
