使用write.csv时,防止将行名写入文件

wat*_*rif 143 csv r

命令:

t <- data.frame(v = 5:1, v2 = 9:5)
write.csv(t, "t.csv")
Run Code Online (Sandbox Code Playgroud)

产生的文件:

# "","v","v2"
# "1",5,9
# "2",4,8
# "3",3,7
# "4",2,6
# "5",1,5
Run Code Online (Sandbox Code Playgroud)

如何防止将带有行索引的第一列写入文件?

NPE*_*NPE 267

write.csv(t, "t.csv", row.names=FALSE)
Run Code Online (Sandbox Code Playgroud)

来自?write.csv:

row.names: either a logical value indicating whether the row names of
          ‘x’ are to be written along with ‘x’, or a character vector
          of row names to be written.
Run Code Online (Sandbox Code Playgroud)

  • 我很惭愧,因为我确实尝试过吗?write.csv但是... Thx aix! (12认同)
  • 是的,诀窍是要明白这个列代表行名. (7认同)

Tun*_*ung 7

为了完整起见,write_csv()readr包中速度更快,从不写行名

# install.packages('readr', dependencies = TRUE)
library(readr)
write_csv(t, "t.csv")
Run Code Online (Sandbox Code Playgroud)

如果需要写出大数据,请使用fwrite()fromdata.table包。它的速度远远快于都write.csvwrite_csv

# install.packages('data.table')
library(data.table)
fwrite(t, "t.csv")
Run Code Online (Sandbox Code Playgroud)

下面是爱德华在他的网站上发布的基准

microbenchmark(write.csv(data, "baseR_file.csv", row.names = F),
               write_csv(data, "readr_file.csv"),
               fwrite(data, "datatable_file.csv"),
               times = 10, unit = "s")

## Unit: seconds
##                                              expr        min         lq       mean     median         uq        max neval
##  write.csv(data, "baseR_file.csv", row.names = F) 13.8066424 13.8248250 13.9118324 13.8776993 13.9269675 14.3241311    10
##                 write_csv(data, "readr_file.csv")  3.6742610  3.7999409  3.8572456  3.8690681  3.8991995  4.0637453    10
##                fwrite(data, "datatable_file.csv")  0.3976728  0.4014872  0.4097876  0.4061506  0.4159007  0.4355469    10
Run Code Online (Sandbox Code Playgroud)