R write.table不會在同一個文件上寫入2個矩陣

Question

我有2個矩陣x和y。我想按照以下順序將它們寫在同一個csv文件中：矩陣x，「一些文本」，矩陣y。我使用函數write.table來追加文件。但是，只有在x矩陣丟失時寫入y矩陣。我注意到，如果我在兩個命令write.table中刪除「一些文本」，兩個矩陣都將被正確打印出來。實際上，我想在打印矩陣之前保留「一些文本」，因爲這將幫助我在大數據測試中識別我的結果。你有什麼建議嗎？謝謝。

rm(list=ls()) 
cat("\014") 

file_ext="csv" 
output_file = paste("result", file_ext, sep = ".") 

(x <- matrix(1, nrow = 3, ncol = 2, byrow = TRUE)) 
(y <- matrix(2, nrow = 3, ncol = 2, byrow = TRUE)) 

sink(output_file) 
#------------------------------------------------------------ 
cat("The results are:",sep="\n") 

#write the x matrix. PROBLEM: the x matrix is not printed out 
cat("The x matrix",append =TRUE) 
cat("\n") 
write.table(x, file=output_file, sep=",", col.names = F, row.names = F, append = TRUE) 

#write the y matrix. 
cat("The y matrix",append =TRUE) 
cat("\n") 
write.table(y, file=output_file, sep=",", col.names = F, row.names = F, append = TRUE) 

sink() 
file.show(output_file) #show the file in directory 

Answer 1

這是你想要的嗎？

The results are:  
The x matrix  
1 1 
1 1 
1 1 
The y matrix  
2 2 
2 2 
2 2 

代碼：

rm(list=ls()) 

file_ext="csv" 
output_file = paste("result", file_ext, sep = ".") 

(x <- matrix(1, nrow = 3, ncol = 2, byrow = TRUE)) 
(y <- matrix(2, nrow = 3, ncol = 2, byrow = TRUE)) 

sink(output_file) 

cat("The results are:\nThe x matrix\n") 
write.table(x,row.names=FALSE,col.names=FALSE,sep=",") 

cat("The y matrix\n") 
write.table(y,row.names=FALSE,col.names=FALSE,sep=",") 

sink() 
file.show(output_file) #show the file in directory