连接具有不同行数和列之间不同间距的多个表

Question

我一直在尝试从不同的文件中加入几个表。他们看起来有点像这样：

    x   x
    x    x
    x  x    x

    Profile a b c
    1       0 0 0
    2       0 0 0
    ...
    x   x
    x    xxxxxxx

期望的输出：

    x   x
    x    x
    x  x    x

    Profile a b c
    1       0 0 0
    2       0 0 0
    ...
    x   x
    x    xxxxxxx
    x   x
    x    x
    x  x    x

    Profile a b c
    1       0 0 0
    2       0 0 0
    ...
    x   x
    x    xxxxxxx

我一直在使用以下代码加入我的表（它们位于不同的文件中），但它只能正确连接前两个表。我想知道是否有一些方法可以同时单独读取表格，例如： for（i in 1：4）{   串（I）LT; -readLines（＆＃34;存档＆＃34;，I，＆＃34; .TXT＆＃34）。

我使用以下代码：

    strings1<-readLines("C:/data/archive1.txt")
    strings2<-readLines("C:/data/archive2.txt")

    b1<-length(strings1)
    b2<-length(strings2)

    for (i in 1:4){ 
      if (i==1){ 
       a<-strings1 
      }
      else{ 
        c<-b1+length(strings1)
        data<-readLines(paste("archive",i,".txt", sep="")) 
        a[b2:c]<-data
        b1<-c 
        b2<-b1+1 }
    }

有没有办法让不必写：字符串1，字符串2，....因为我有大约200个文件。

我感谢任何建议