99

この例を確認してください。

> a = matrix(1:9, nrow = 3, ncol = 3, dimnames = list(LETTERS[1:3], LETTERS[1:3]))
> a
  A B C
A 1 4 7
B 2 5 8
C 3 6 9

テーブルが正しく表示されます。それをファイルに書き込むには2つの異なる方法があります...

write.csv(a, 'a.csv')これは期待どおりになります：

"","A","B","C"
"A",1,4,7
"B",2,5,8
"C",3,6,9

そして、write.table(a, 'a.txt')それは台無しになります

"A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9

確かに、空のタブがありません....これは下流のものの尻の痛みです。これはバグですか、それとも機能ですか？回避策はありますか？（以外write.table(cbind(rownames(a), a), 'a.txt', row.names=FALSE）

乾杯、ヤニック

4

5 に答える 5

146

引用?write.table、セクションCSVファイル：

デフォルトでは、行名の列に列名はありません。col.names = NAと空白の列名が追加された場合row.names = TRUE。これは、スプレッドシートで読み取るCSVファイルに使用される規則です。

だからあなたはしなければならない

write.table(a, 'a.txt', col.names=NA)

そしてあなたは得る

"" "A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9
于 2010-03-19T15:45:03.653 に答える
10

@Marekの非常に役立つ回答にわずかな変更を加えると、行名列にヘッダーが追加されます。一時的に行名をdata.frameの最初の列として追加し、実際の行名を無視して書き込みます。

> a = matrix(1:9, nrow = 3, ncol = 3, dimnames = list(LETTERS[1:3], LETTERS[1:3]))
> write.table(data.frame("H"=rownames(a),a),"a.txt", row.names=FALSE)

そしてあなたは得る

"H" "A" "B" "C"
"A" 1 4 7
"B" 2 5 8
"C" 3 6 9
于 2016-07-07T21:16:40.783 に答える
4

tidyverse（dplyrなど）で作業している人は、 tibblerownames_to_column()パッケージの関数を使用して、row.namesを列に簡単に変換できます。例：

library('tibble')
a = as.data.frame(matrix(1:9, nrow=3, ncol=3, 
                  dimnames=list(LETTERS[1:3], LETTERS[1:3])))

a %>% rownames_to_column('my_id')

  my_id A B C
1     A 1 4 7
2     B 2 5 8
3     C 3 6 9

row.names=FALSEこれをオプションのオプションと組み合わせると、write.table()すべての列のヘッダー名が出力されます。

于 2017-01-26T19:30:28.240 に答える
3

で行列を保存するときに同じ問題が発生しwrite.table()、row.names列を保持したい場合は、実際には非常に簡単な解決策があります。

 write.table(matrix,file="file.csv",quote=F,sep=";", row.names=T
             col.names=c("row_name_col;val1_col","val2_col"))

そうすることで、基本的にwrite.table関数をだましてrow.names列のヘッダーラベルを作成することになります。結果の.csvファイルは次のようになります。

row_name_col;val1_col;val2_col
row1;1;4 
row2;2;5 
row3;3;6
于 2018-04-08T16:15:06.697 に答える
0

@mnelから単純な関数を改訂しました。これにより、接続を使用して柔軟性が追加されます。関数は次のとおりです。

my.write <- function(x, file, header, f = write.csv, ...){
# create and open the file connection
datafile <- file(file, open = 'wt')
# close on exit 
on.exit(close(datafile))
# if a header is defined, write it to the file (@CarlWitthoft's suggestion)
if(!missing(header)) {
writeLines(header,con=datafile, sep='\t')
writeLines('', con=datafile, sep='\n')
}
# write the file using the defined function and required addition arguments  
f(x, datafile,...)
}

関数は、「write.table」、「write.csv」、「write.delim」などに指定できます。

乾杯！

于 2015-05-03T18:35:25.927 に答える