write.table, satır adları olduğunda istenmeyen boş sütunu başlığa yazar

bu örneğe bakın:

> 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

tablo doğru görüntüleniyor. Dosyaya yazmanın iki farklı yolu vardır ...

write.csv(a, 'a.csv') beklendiği gibi veren:

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

ve write.table(a, 'a.txt')hangisini mahvediyor

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

aslında, boş bir sekme eksik ... Bu, aşağı akış şeyler için popoda bir acı. Bu bir hata veya özellik mi? Bir çözüm var mı? (dışında write.table(cbind(rownames(a), a), 'a.txt', row.names=FALSE)

Şerefe yannick

Alıntı ?write.table, bölüm CSV dosyaları :

Varsayılan olarak, satır adlarından oluşan bir sütun için sütun adı yoktur. Eğer col.names = NAve row.names = TRUEboş sütun adı elektronik tablolar tarafından okunacak CSV dosyaları için kullanılan kongre olan eklenir.

Yani yapmalısın

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

ve sen alırsın

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

@Marek'e yapılan ufak bir değişiklik çok yararlı cevapta Rownames sütununa bir başlık ekleyecektir: geçici olarak satır adlarını data.frame'deki ilk sütun olarak ekleyin ve gerçek satır adlarını yok sayarak bunu yazın.

> 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)

ve sen alırsın

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

Herkes çalışma için tidyverse (dplyr, vs.) rownames_to_column()ile ilgili fonksiyon Tibble paketin kolayca bir sütun, örn row.names dönüştürmek için kullanılabilir:

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

Bunu row.names=FALSEseçenekle birleştirmek write.table(), tüm sütunlar için başlık adlarıyla çıktı elde edilmesini sağlar.

Bir matrisi kaydederken aynı sorunu write.table()yaşayanlar ve row.names sütununu tutmak isteyenler için, aslında son derece basit bir çözüm var:

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

Bunu yaparak, temelde write.tableişlevi, row.names sütunu için bir başlık etiketi oluşturması için kandırmış olursunuz. Ortaya çıkan .csv dosyası şöyle görünecektir:

row_name_col;val1_col;val2_col
row1;1;4 
row2;2;5 
row3;3;6 

@ Mnel'den, bağlantıları kullanarak esneklik sağlayan basit bir işlevi revize ettim. İşte fonksiyon:

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,...)
}

İşlevi 'write.table', 'write.csv', 'write.delim' vb. Olarak belirtebilirsiniz.

Şerefe!