問題產(chǎn)生：
有一天科室?guī)熋脝枺簽槭裁次冶４娉鰜淼臄?shù)據(jù)，用excel打開后列名總是被左移了一位？有沒有解決辦法。
答曰：直接在excel把他往右拖一位。
師妹：可是我有二十多個這樣的表
答曰：...
a
錯位輸出
應該挺多人遇到過上方提到的問題，相信蠻多人的第一解決手段是直接在excel右拖。本文將用幾行簡單的代碼解決這個問題
錯位輸出
#測試數(shù)據(jù)構(gòu)建
a<-matrix(0,2,2)
rownames(a)<-c("r1","r2")
colnames(a)<-c("c1","c2")
#常規(guī)輸出(錯位)
write.table(a,file = "a1.txt",sep = "\t",quote = FALSE)
錯位輸出
調(diào)整后輸出
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
