使用write.table将结果追加到R中的现有文件

Question

我已经在R中的文件上进行了文本挖掘，然后将其作为新列添加到现有文件中。 完成后，该列将添加到实际内容之后。 我该如何纠正？

结果看起来像这样：

Customer Names
T-MAX INDUSTRIAL LTD
T-MAX INDUSTRIAL LTD.
ADCHEM
ADCHEM (AUSTRALIA)
ADCHEM (AUSTRALIA) PTY LTD
AUROBINDO PHARMA (AUSTRALIA)
AUROBINDO PHARMA (AUSTRALIA) PTY
Aurobindo Pharma (Australia) Pty
AUROBINDO PHARMA(AUSTRALIA) PTY LTD
AUROBINDO PHARMA(AUSTRALIA)PTY LTD
V1
tmax industrial 
tmax industrial 
adchem
adchem  
adchem   
aurobindo pharma  
aurobindo pharma  
aurobindo pharma  
aurobindo pharma   
aurobindo pharma   

但是我的输出必须如下所示：

Customer Names                           V1 
T-MAX INDUSTRIAL LTD                    tmax industrial     
T-MAX INDUSTRIAL LTD.                   tmax industrial     
ADCHEM                                  adchem  
ADCHEM (AUSTRALIA)                      adchem      
ADCHEM (AUSTRALIA) PTY LTD              adchem      
AUROBINDO PHARMA (AUSTRALIA)            aurobindo pharma    
AUROBINDO PHARMA (AUSTRALIA) PTY        aurobindo pharma    
AUROBINDO PHARMA (AUSTRALIA) PTY        aurobindo pharma    
AUROBINDO PHARMA(AUSTRALIA) PTY LTD     aurobindo pharma    
AUROBINDO PHARMA(AUSTRALIA)PTY LTD      aurobindo pharma    

我使用的代码是：

result <- data.frame(text=unlist(sapply(b, `[`)), stringsAsFactors=FALSE)
write.table(result, file="Counter_Party_Testing.csv", sep=".", eol="\n", append=TRUE, row.names=FALSE, col.names=FALSE)

然后将原始结果也转换为数据框grp1作为Origin，并将grp2转换为Result，现在需要print语句帮助，以使用for循环在输出文件的单个行中打印两个文件的相同行。

我在print语句抛出一些错误时使用了此代码，

for (n in seq_len(nrow(grp1))) 
{
    print(grp1[n]+','+grp2[n]+) 
}

Answer 1

通过以下代码获得了所需的输出：

df <- cbind(origin, result)


# Move to new file
     write.table(df, file="new_OT5.csv", sep=",", append=TRUE , row.names=FALSE, col.names=FALSE)

Answer 2

with open('file-one.txt', 'r') as origin:
    original_data = origin.readlines()

with open('file-two.txt', 'r' as merge:
    merge_data = origin.readlines()

with open('output.csv', 'w' as output:
    for i in range(len(original_data)):
        output.write(original_data[i].strip() + ', ' + merge_data[i].strip() + '\n')

这解决了您的数据无法正确合并的问题。 现在，如何使用write.table呈现它已超出了我每天的常规使用范围。 但是就原始数据而言，这可以解决问题。 您可以将最终结果放入字符串中，而不是将其写入磁盘。

需要注意的一件事是，您可能会像上例一样以\\n结尾，在合并与同一行中的任何数据之前，需要对此进行条纹处理。 如果合并数据与原始数据的长度不同或更大，则索引也可能超出范围。 但这是错误处理，我留给您，我只是提供了您问题的解决方案概念。 除此之外，它还很简单