R如何批量读取txt文件再合并？

gtxing

19002

收藏 2016-06-14

悬赏 5 个论坛币已解决

网上搜了很多资料，都不能实现批量读取同一文件夹下的所有txt文件并合并在一起，哪位大神能帮忙写下代码，谢谢！假如“F:/DATA”目录文件夹下有200个txt文件
要求：先批量读取，再合并

最佳答案

qoiqpwqr 查看完整内容

大概这个样子

扫码加我拉你入群

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

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

全部回复

qoiqpwqr

2016-6-14 19:31:59

大概这个样子

复制代码

扫码加我拉你入群

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

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

qoiqpwqr

2016-6-14 19:45:41

这些文件有相同的格式吗？

扫码加我拉你入群

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

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

gtxing

2016-6-14 19:46:52

qoiqpwqr 发表于 2016-6-14 19:45
这些文件有相同的格式吗？

所有txt文件格式一样的

扫码加我拉你入群

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

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

qoiqpwqr

2016-6-14 19:53:17

qoiqpwqr 发表于 2016-6-14 19:52
大概这个样子

如果文件不是很大的话

扫码加我拉你入群

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

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

gtxing

2016-6-14 19:56:32

qoiqpwqr 发表于 2016-6-14 19:52
大概这个样子

麻烦把参数写进去，谢谢

扫码加我拉你入群

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

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

点击查看更多内容…

qoiqpwqr

2016-6-14 19:57:53

gtxing 发表于 2016-6-14 19:56
麻烦把参数写进去，谢谢

什么参数？具体情况和你的文件有关

扫码加我拉你入群

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

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

gtxing

2016-6-14 20:02:44

qoiqpwqr 发表于 2016-6-14 19:57
什么参数？具体情况和你的文件有关

比如：filenames <- list.files()，括号里的内容，new.data <- read.table(file, header = TRUE)，file是指什么，可否写完整，最后我想输出到控制台看下结果

扫码加我拉你入群

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

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

gtxing

2016-6-14 20:06:56

qoiqpwqr 发表于 2016-6-14 19:53
如果文件不是很大的话

文件确实很大，不大我就不需要批量读取了，一个txt文件40MB左右这样子

扫码加我拉你入群

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

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

qoiqpwqr

2016-6-14 20:07:45

filenames <- list.files()就这样了，不需要参数

file是当前的文件名，在for语句里面定义的

扫码加我拉你入群

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

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

gtxing

2016-6-14 20:10:56

qoiqpwqr 发表于 2016-6-14 20:07
filenames

这是代码执行过程，如何看到合并后的结果呢（列表形式）

+ setwd("F:/DATA/")
+ filenames <- list.files()
+ for (file in filenames) {
+ if (!exists("all.data")) {
+    all.data <- read.table(file, header = TRUE)
+ }
+ if (exists("all.data")) {
+    new.data <- read.table(file, header = TRUE)
+    all.data <- rbind(all.data, new.data)
+ }
+ }
+

扫码加我拉你入群

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

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

qoiqpwqr

2016-6-14 20:15:41

gtxing 发表于 2016-6-14 20:10
这是代码执行过程，如何看到合并后的结果呢（列表形式）

+ setwd("F:/DATA/")

要不你发一个文件来看看，不需要整个文件，复制粘贴前几行就行了

扫码加我拉你入群

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

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

nuomin

2016-6-15 09:57:07

读完TXT之后在x上循环函数write(x, file = "targetfile.txt",append = TRUE, sep = " ")就可以了。注意参数append = TRUE，这是在文件后写入的意思，如果append = FALSE就是覆盖了。

扫码加我拉你入群

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

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

gtxing

2016-6-15 17:25:58

qoiqpwqr 发表于 2016-6-14 19:31
大概这个样子

要把第二个if判断改成else，要不然会把new.data多合并一次到all.data，造成数据重复合并了，不知道为什么
不过谢谢，已经解决了，已采纳你的帮助

扫码加我拉你入群

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

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

gtxing

2016-6-15 17:27:50

nuomin 发表于 2016-6-15 09:57
读完TXT之后在x上循环函数write(x, file = "targetfile.txt",append = TRUE, sep = " ")就可以了。注意参数 ...

谢谢，已经rbind后， file = "targetfile.txt"就不适用了吧？

扫码加我拉你入群

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

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

gtxing

2016-6-16 14:53:47

qoiqpwqr 发表于 2016-6-14 19:31
大概这个样子

大神，这个代码会读取F:/DATA下的所有文件，包括.csv文件，但只要读取txt文件，应该怎么写呢

扫码加我拉你入群

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

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

nuomin

2016-6-16 20:25:09

gtxing 发表于 2016-6-15 17:27
谢谢，已经rbind后， file = "targetfile.txt"就不适用了吧？

哦，已经合并了。不过文件如果很多的话，我会选择在磁盘上合并。

扫码加我拉你入群

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

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

felixzhao123

2016-7-4 12:47:32

我给你一个我自己的例子吧，假设在我的D盘DataFolder文件夹下有若干个相同格式的txt文件并且都有表头，则有如下代码，请先安装和加载dplyr包

复制代码

扫码加我拉你入群

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

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

柠檬半熟

2019-3-23 09:49:11

请问楼主如果文件的列数不相等可以合并么？我试了下代码，显示Error in match.names(clabs, names(xi)) : 名字同原来已有的名字不相对

扫码加我拉你入群

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

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

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群