r输出txt - write csv怎么用




当有rownames时,write.table将不需要的前导空列写入标题 (4)

对于任何工作在tidyverse (dplyr等)中的人来说, tidyverse包中的tidyverserownames_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

将其与write.table()row.names=FALSE选项结合使用,可以输出包含所有列的标题名称的输出。

检查这个例子:

> 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

表格显示正确。 有两种不同的方式将其写入文件...

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

欢呼,yannick


对于那些在使用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 

我从@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'等。

干杯!


稍微修改@Marek非常有用的答案会为rownames列添加一个标题:临时添加rownames作为data.frame中的第一列,然后编写它,忽略真正的rownames。

> 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




write.table