程式實在是調不出來了，我決定破釜沉舟，直接把所有表格都打印出來，看看資料到底哪兒有問題。
    然後就開始了鬧心的矩陣匯出。。。
    首先，百度了一下，資料匯出的程式碼為：

write.table (x, file ="", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)

    其中：

x：需要匯出的資料
file：匯出的檔案路徑
sep：分隔符，預設為空格（" "），也就是以空格為分割列
row.names：是否匯出行序號，預設為TRUE，也就是匯出行序號
col.names：是否匯出列名，預設為TRUE
 
，也就是匯出列名
quote：字串是否使用引號表示，預設為TRUE，也就是使用引號表示

    按照這個程式，匯出我的大矩陣A：

    使用程式碼為：

`A<-data.frame(A)
write.table (A, file ="E:\\R\\A.xls", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)

    結果為：

    沒法兒看。。。
    更改最後的quote=FALSE也不行。
    偶然看到有人將資料框轉換成csv格式，嘗試一下：

A<-data.frame(A)
write
 
.table (A, file ="E:\\R\\A.csv", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)

    結果與之前相同。。。。
    陷入崩潰。。。
    心態持續崩壞中。。。
    手欠改了一下程式碼：

A<-data.frame(A)
write.csv (A, file ="E:\\R\\A.csv", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)

    提示後面的sep等不可以設定。
    再次更改：

A
 
<-data.frame(A)
write.csv (A, file ="E:\\R\\A.csv")

    結果為：

    成了。。。。。
    【程式設計靠緣分系列】
    債見！