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

Xinght

26351

收藏 2014-03-14

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

扫码加我拉你入群

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

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

全部回复

Shonphy

2014-3-15 21:23:28

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

扫码加我拉你入群

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

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

yywan0913

2014-3-16 00:37:48

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

扫码加我拉你入群

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

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

Xinght

2014-3-17 11:36:42

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

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

扫码加我拉你入群

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

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

Xinght

2014-3-17 12:08:22

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

扫码加我拉你入群

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

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

地板

yywan0913

2014-3-17 14:06:33

---此楼删除

扫码加我拉你入群

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

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

点击查看更多内容…

7楼

yywan0913

2014-3-17 14:13:18

复制代码

扫码加我拉你入群

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

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

8楼

Xinght

2014-3-17 19:16:08

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的数据，谢谢

扫码加我拉你入群

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

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

9楼

jmpamao

2014-3-17 20:49:25

Xinght 发表于 2014-3-17 19:16
谢谢，这个问题解决了。
rm(list=ls())
SimFiles
出现了斜体，写代码的时候最好<>来写，因为
复制代码
另外，感觉可以不用循环来做

扫码加我拉你入群

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

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

10楼

淘宝网橙迷橙橙

2014-3-17 21:45:20

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

扫码加我拉你入群

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

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

11楼

jmpamao

2014-3-17 21:59:50

看你搞矩阵，貌似行相同，
可以直接合并列

接楼上的， do.call(cbind,lapply(filenames,read.file))

扫码加我拉你入群

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

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

12楼

yywan0913

2014-3-18 09:12:33

Xinght 发表于 2014-3-17 19:16
谢谢，这个问题解决了。
rm(list=ls())
SimFiles
复制代码
加入一万个文件所取的列均的集合数都一样的话，可以这样，否则有点麻烦点。。
你把代码写在<>中，否则很多格式消失了

扫码加我拉你入群

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

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

13楼

Xinght

2014-3-18 10:15:48

yywan0913 发表于 2014-3-18 09:12
加入一万个文件所取的列均的集合数都一样的话，可以这样，否则有点麻烦点。。
你把代码写在中，否则很多 ...
谢谢

扫码加我拉你入群

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

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

14楼

Xinght

2014-3-18 10:16:34

jmpamao 发表于 2014-3-17 21:59
看你搞矩阵，貌似行相同，
可以直接合并列
谢谢

扫码加我拉你入群

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

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

15楼

Xinght

2014-3-21 19:46:59

淘宝网橙迷橙橙发表于 2014-3-17 21:45
如是txt数据文件，将多个文件读入列表，剩下的，你看着办。
fileName
谢谢。
我用你的方法可以将所有的文件整合到一起，却不能仅将指定的某一列放在一个文件中。我也没有想出其他办法解决该问题，所以还请指导
并且还想将文件名作为新生成文件中列的名字
谢谢

扫码加我拉你入群

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

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

16楼

Xinght

2014-3-24 06:41:09

Xinght 发表于 2014-3-21 19:46
谢谢。
我用你的方法可以将所有的文件整合到一起，却不能仅将指定的某一列放在一个文件中。我也没有想出 ...

DryT0ST0HT0N300SF50TF125FF125.txt
大小:(108.45 KB)
马上下载

DryT0ST0HT0N200SF50TF75FF75.txt
大小:(108.45 KB)
马上下载

DryT0ST0HT0N125SF25TF100FF0.txt
大小:(108.45 KB)
马上下载

DryT0ST0HT0N50SF50TF0FF0.txt
大小:(108.45 KB)
马上下载

扫码加我拉你入群

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

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

17楼

jmpamao

2014-3-27 21:42:53

###我把你私信的问题发到这里####让大家一起想想吧####
Xinght 9 小时前
谢谢，我可能没有说清楚，假如我有10000个文件，每个文件中的变量数是一样的，然后我从这10000个文件中将相同的变量提出来，比如Xyield，然后将它们都放在一个文件中，然后每列的名字就是这10000个文件的名字。
例如
在名为Xyield的文件中的格式如下
DryT0ST0HT0N0SF0TF0FF0 DryT0ST0HT0N100SF25TF75FF0 DryT0ST0HT0N125SF25TF100FF0……
也就是说我首先要在这10000文件中的Xyield数据提取出来，然后将它们放进一个文件中，同时每列的名字就是这列数据被提取出来所在文件的名字。
谢谢帮助
#############################################################

扫码加我拉你入群

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

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

18楼

jmpamao

2014-3-27 22:28:39

试了下简单的文件
复制代码

##你的文件读取时要read.table(x,skip=2,header=T )[-1,])
##如果你的文件有10000时，不知速度如何？

扫码加我拉你入群

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

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

19楼

2010携手天涯

2014-3-30 10:17:41

jmpamao 发表于 2014-3-27 22:28
试了下简单的文件

##你的文件读取时要read.table(x,skip=2,header=T )[-1,])
lapply(filenames,function(x)read.table(x,header=T,sep=","))，运行会出错。

扫码加我拉你入群

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

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

20楼

2010携手天涯

2014-3-30 10:38:00

jmpamao 发表于 2014-3-27 22:28
试了下简单的文件

##你的文件读取时要read.table(x,skip=2,header=T )[-1,])
解决了，不好意思呀。

扫码加我拉你入群

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

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

21楼

billdavidzyb

2015-1-8 16:03:24

yywan0913 发表于 2014-3-16 00:37
文件名有没有什么规律么？有的话两条命令搞定，不过时间上可能就慢些，毕竟R处理文本没那么完美。
请问如果有规律的话怎么办？例如001.csv，002.csv，003.csv……谢谢！

扫码加我拉你入群

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

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

22楼

yywan0913

2015-1-8 17:04:24

billdavidzyb 发表于 2015-1-8 16:03
请问如果有规律的话怎么办？例如001.csv，002.csv，003.csv……谢谢！
复制代码

扫码加我拉你入群

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

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

23楼

billdavidzyb

2015-1-12 16:06:30

yywan0913 发表于 2015-1-8 17:04
多谢！！！

扫码加我拉你入群

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

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

相关推荐

[求助]如何用R实现这个模拟

[求助]如何用R实现核估计拟合？

如何用R实现循环保存？

如何用R绘制某个省的地图

如何用R实现有重复的全排列

如何用R实现矩阵的条件查找？

求助如何用R实现求一个数组中最大的两数

如何用R实现STR模型

如何用R实现哑变量？

求助，如何用R实现一个数据框中多列之和

栏目导航

R语言论坛

求助成功区

经管文库（原现金交易版）

休闲灌水

金融工程（数量金融）与金融衍生品

经管高考

热门文章

参数估计：CDA数据分析师的核心推断工具，用 ...

通用指标与场景指标：CDA数据分析师的核心分 ...

2024年合集 ESG评级数据大全（彭博华证 Wi ...

技术趋势2026

2025年第四季度中国货币政策执行报告

复变函数专题选讲

CDA 认证考试大纲 2025 重磅更新：一二级考 ...

在概率与代码之间：Agent Skills 是 AI 的枷 ...

CDA数据分析脱产就业班于2026年3月7日开班！ ...

失去的三十年：平成日本经济史（【日】野口 ...

推荐文章

2026JG学术冬训营:从Stata初高到Python机器 ...

【必看】【本版版规，欢迎发悬赏贴求助】

【新课】26年3月｜Gemini辅助论文写作与数据 ...

关于如何利用文献的若干建议

关于学术研究和论文发表的一些建议

关于科研中如何学习基础知识的一些建议 (一 ...

一个自编的经济学建模小案例 --写给授课本科 ...

AI智能体赋能教学改革: 全国AI教育教学应用 ...

2025中国AIoT产业全景图谱报告-406页

关于文献求助的一些建议

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群