R批量提取一个文件夹下的子文件夹的内容

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助！！数据是直接从气象网站下的，用R怎么批量提取三重文件夹的数据啊，最后想合成一个文件，谢谢大神

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：文件夹 批量提取 气象数据 文件夹

dir（）

xugami 发表于 2017-5-7 11:07
dir（）

用dir只提取了省份的名字呀，怎么能达到最下层的txt呢

abc123xxx 发表于 2017-5-7 11:51
用dir只提取了省份的名字呀，怎么能达到最下层的txt呢

http://www.cnblogs.com/cloudtj/articles/6298107.html
这个应该有用，祝好

马克一下，等大神

1. # Suppose the working directory is the same as the directory where the sub-directory and files locate
   
2. list.files(pattern = "*.txt", recursive = TRUE)

复制代码

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")
}

xugami 发表于 2017-5-7 15:53
http://www.cnblogs.com/cloudtj/articles/6298107.html
这个应该有用，祝好

谢谢，好全

abc123xxx 发表于 2017-5-9 10:52
谢谢啦，输出了所有文件名，若是后面想要依次读取进行操作呢，结果很不对，我的代码这么写的，求 ...

1. # Suppose vector a contains the file names
   
2. lapply(
   
3.   a,
   
4.   function(s)
   
5.   {
   
6.     data <- read.table(file = s, header = TRUE)
   
7.     # Do what is needed and suppose y2 is the resulting data you would like to write to file
   
8.     write.table(y2, file = "path/to/your/file", append = TRUE, header = FALSE)
   
9.    
   
10.   }
    
11.        )

复制代码