如何用R读取多个文件中指定列的数据并存入同一文件中

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请各位高手帮忙
我要读取近万个文件中指定数据列的数据并将他们存入同一文件中。如何用R实现。谢谢

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何用 R实现 如何

用PYTHON吧，这种问题，phthon容易多了，安装文件只有20M，语言很简单，容易学。

文件名有没有什么规律么？有的话两条命令搞定，不过时间上可能就慢些，毕竟R处理文本没那么完美。

yywan0913 发表于 2014-3-16 00:37
文件名有没有什么规律么？有的话两条命令搞定，不过时间上可能就慢些，毕竟R处理文本没那么完美。

文件名没有什么规律，但是都已经读到一个txt文档里面了，只需要用read.table 就可以将它们按顺序读出来然后找到相应要打开的文件。

Xinght 发表于 2014-3-17 11:36
文件名没有什么规律，但是都已经读到一个txt文档里面了，只需要用read.table 就可以将它们按顺序读出来然 ...

rm(list=ls())
SimFiles <- "C:\\Test\\"
setwd(SimFiles) # Set the working directory
SimNames<- read.table(file = "apsimoutfiles.TXT",header=TRUE, dec = ".")
for (i in 1:100000){
        OpenFileName<-SimNames$SimScinariosNames
        DrySimBasic<- readLines(OpenFileName,warn=F)
        NewSimFile<-DrySimBasic
        NewSimFile<-gsub("dd/mm/yyyy as Date","year",NewSimFile)
        writeLines(NewSimFile,OpenFileName)
}
就像这段程序中，我将要打开的文件用Read.table打开然后付给一个变量，然后用radlines打开就会出错啊？
Error in readLines(OpenFileName, warn = F) : 'con' is not a connection

---此楼删除

1. OpenFileName<-SimNames$SimScinariosNames改成OpenFileName<-as.character(SimNames$SimScinariosNames[i])试试？

复制代码

yywan0913 发表于 2014-3-17 14:13

谢谢，这个问题解决了。
rm(list=ls())
SimFiles <- "C:\\Test\\"
setwd(SimFiles)
FileNames<-read.table(file = "apsimoutfiles.TXT",header=TRUE, dec = ".")
XNData<-matrix(nrow=126,ncol=17)
for (i in 1:17){
    OpenFileName<-FileNames$SimScinariosNames
      OpenFileName<-paste("C:/Test/",OpenFileName,sep="")
      XSimData<-read.table(OpenFileName,header=TRUE, dec = ".",skip=2)
      XNData[,i]=XSimData$XNSim
}
write.table(XNData,file="C:/Test/NSimData.txt", sep=",",quote=FALSE)
这段程序那里出错了，为何写出的数据不是XNSim的数据，谢谢

Xinght 发表于 2014-3-17 19:16
谢谢，这个问题解决了。
rm(list=ls())
SimFiles

出现了斜体，写代码的时候最好<>来写，因为

1. [i] 在此论坛中被设置了斜体

复制代码

另外，感觉可以不用循环来做

如是txt数据文件，将多个文件读入列表，剩下的，你看着办。
fileName <- dir(pattern="txt")
read.file <- function(File){
  read.table(File,header=TRUE,sep=" ",stringsAsFactors=F)
}
datalist <- lapply(fileName,read.file)