将新行追加到现有 csv 文件中

Question

我想将新行添加到系统中现有的 csv 文件中。下面是 MWE。首先，创建一个数据表并将其写入文件：

date <- "2017-08-01"
investPercent<- 20
expenses <- 20000
savings <- 30000
low <- 10
high <- 20
objective <-19000


data<-data.frame(date, investPercent, expenses, savings, low, high, objective)

write.csv(data, file="./finances.csv", row.names = F)

现在执行相反的操作并从现有文件中读取，修改变量并尝试将修改后的数据表附加到现有文件中：

data<-read.csv("./finances.csv",stringsAsFactors = FALSE)

date <- Sys.Date()
investPercent<- 99
expenses <- 29999
savings <- 39999
low <- 19
high <- 29
objective <-19999

dataplus<- data.frame(date, investPercent, expenses, savings, low, high, objective)
write.csv(dataplus,  file="./finances.csv", append = T)

这不起作用，finances.csv文件被完全重写，并且追加选项似乎仅在文件是字符串时才起作用。

• 如何将相同大小的数据表附加到现有的 csv 文件中？

Answer 1

您不能使用write.csv(). 相反，您需要使用write.table()并指定一些附加参数。以下内容将向 csv 文件追加一行新数据，并省略追加的列标题。这意味着您只需要在第一次编写表格时包含列标题即可；之后，数据应该在相同的标头下流入。

write.table( dataplus,  
             file="./finances.csv", 
             append = T, 
             sep=',', 
             row.names=F, 
             col.names=F )