问题产生：
有一天科室师妹问：为什么我保存出来的数据，用excel打开后列名总是被左移了一位？有没有解决办法。
答曰：直接在excel把他往右拖一位。
师妹：可是我有二十多个这样的表
答曰：...
a
错位输出
应该挺多人遇到过上方提到的问题，相信蛮多人的第一解决手段是直接在excel右拖。本文将用几行简单的代码解决这个问题
错位输出
#测试数据构建
a<-matrix(0,2,2)
rownames(a)<-c("r1","r2")
colnames(a)<-c("c1","c2")
#常规输出(错位)
write.table(a,file = "a1.txt",sep = "\t",quote = FALSE)
错位输出
调整后输出
adjustdata <- function(data) {
data<-cbind(rownames(data),data)
}
a<-adjustdata (a)
a
write.table(a,file = "a.txt",sep = "\t",quote = FALSE,row.names = FALSE)
a
a.txt
