write.table ghi cột trống ở đầu không mong muốn vào tiêu đề khi có tên hàng

kiểm tra ví dụ này:

> 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

bảng hiển thị chính xác. Có hai cách khác nhau để ghi nó vào tệp ...

write.csv(a, 'a.csv') mang lại như mong đợi:

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

và write.table(a, 'a.txt')cái nào bắt vít

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

quả là thiếu một cái tab trống .... quả là đau mông cho mấy thứ hạ lưu. Đây có phải là một lỗi hoặc một tính năng? Có một giải pháp thay thế? (khác write.table(cbind(rownames(a), a), 'a.txt', row.names=FALSE)

Chúc mừng, yannick

Trích dẫn ?write.table, phần tệp CSV :

Theo mặc định, không có tên cột cho một cột tên hàng. Nếu col.names = NAvà row.names = TRUEtên cột trống được thêm vào, đó là quy ước được sử dụng cho các tệp CSV được bảng tính đọc.

Vì vậy, bạn phải làm

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

và bạn nhận được

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

Một sửa đổi nhỏ đối với câu trả lời rất hữu ích @Marek SẼ thêm tiêu đề vào cột tên hàng: tạm thời thêm tên hàng làm cột đầu tiên trong data.frame và viết nó, bỏ qua tên hàng thực.

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

và bạn nhận được

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

Đối với bất kỳ ai làm việc trong ngăn nắp (dplyr, v.v.), rownames_to_column()hàm từ gói tibble có thể được sử dụng để dễ dàng chuyển đổi row.names thành một cột, ví dụ:

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

Kết hợp điều này với row.names=FALSEtùy chọn trong write.table()kết quả đầu ra với tên tiêu đề cho tất cả các cột.

Đối với những người gặp phải vấn đề tương tự khi lưu ma trận với write.table()và muốn giữ lại cột row.names, thực sự có một giải pháp cực kỳ đơn giản:

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

Bằng cách làm đó, về cơ bản, bạn đang lừa write.tablehàm tạo nhãn tiêu đề cho cột row.names. Tệp .csv kết quả sẽ giống như sau:

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

Tôi đã sửa đổi một chức năng đơn giản từ @mnel, chức năng này thêm tính linh hoạt bằng cách sử dụng các kết nối. Đây là chức năng:

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

Bạn có thể chỉ định hàm là 'write.table', 'write.csv', 'write.delim', v.v.

Chúc mừng!