程序实在是调不出来了,我决定破釜沉舟,直接把所有表格都打印出来,看看数据到底哪儿有问题。
然后就开始了闹心的矩阵导出。。。
首先,百度了一下,数据导出的代码为:
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")
结果为:
成了。。。。。
【编程靠缘分系列】
债见!