错位输出

#测试数据构建
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)

可以直接在代码头部加入这一预制函数，每次输出调用，直接方便。