R语言如何批量合并数据

lukas_chen

我有300多个csv数据，每个数据集字段都一样，共4个字段，如何将他们合并为一个文件，用rbind一个个合并工程太浩大了~~~求大神破解！

zggjtsgzczh

最简单的方法是这样:

echo abc > xaa.txt
echo def > xbb.txt
echo ghi > xcc.txt
copy x*.txt abc.txt
type abc.txt

vz33

把你的类似的所有文件放到一个文件夹里如xx
cat ./xx/* > ./1.t

ryo

ff程序包，rseek一下就知道它的威力了！嘎嘎嘎～ ;-)
http://www.r-bloggers.com/opening-large-csv-files-in-r/

geekerchou

你的csv文件命名有什么规则么，文件一个个读是非常非常麻烦的啊。如果命名规则的话尝试用循环。

sikisis

[未知用户]

同意3楼的做法，不要用R做这个。用AWK或者Bash都可以做到这个，简单的cat也可以的。
还有就是如果要用R做的话，可以先生成一个文件名集合，在在R中读入这些文件名做合并。

比如


Args <- commandArgs()
#绘制流场
Vecurl<-paste(Args[6],"/velocityurl.txt",sep ="")
con <- file(Vecurl, "r")
line=readLines(con,n=1)
#print(line)
#line="/home/iphyer/Chanel/p0.85/no5/velocity.txt"
vector1<-read.table(line,fill = TRUE,col.names=c("i","x","y","vx","vy","n"))
line=readLines(con,n=1)
i=1
while( length(line) != 0 ) {
  #print(line)
  vector2<-read.table(line,fill = TRUE,col.names=c("i","x","y","vx","vy","n"))
  #tail(vector2)
  vector1$vx<-vector1$vx+vector2$vx
  vector1$vy<-vector1$vy+vector2$vy
  vector1$n<-vector1$n+vector2$n
  # print('Velocity Done')
  line=readLines(con,n=1)
  i=i+1
}

enthumelon

Bash (folder/file name should contain NO space)

iii=<code>find ./ -d -type f -name  "*.txt"</code>
for i in $iii
do
 cat $i >> target.csv
done

for( file in dir(pattern="*.txt")){
  write.table(
    x = Your_read_handle_function(file), # lib read line/others
    file = "target.csv" ,
    append=T,
    ...(your options)
  )
}

呵呵，论坛的tilda下面那个还是没有处理啊，parsing的还是错的...