R dump() 函数的 Append = TRUE 选项

Question

对于模拟研究，我想将一个样本的结果保存在 R 文件中，然后在该文件中附加下一个样本的结果。

为了实现这一点，我使用了函数 dump()。要在文件中附加下一次模拟的数据，我想使用该函数的 append = TRUE 选项。但是，此功能不适用于我。

当我模拟数据时，将其保存为 R 文件（通过使用转储函数），然后使用 append = TRUE 选项再次执行此操作，转储函数将覆盖数据并且不附加文件。

我做错了什么？

为了说明问题，这是我的示例代码：

#Simulate data 
x <- rnorm(10)
y <- rnorm(10)
xy <- data.frame(x,y)

#Dump into R file "xy.R" with option append = TRUE
dump("xy",file="xy.txt", append =TRUE)
rm(xy)  # remove the dataset form current environment

#Retrieve data from file: 
source("xy.R")
xy #100 rows

#Run the code again: Still 100 rows and not 200 as expected. 
#Old data is overwritten, new data is not appended.

Answer 1

你真的看过输出文件吗？

Dump 将带有赋值的变量名写入文件。这意味着当您要求dump("xy") 时，它会写出

xy <- ...

当你再次运行它时，它会将输出附加到同一个文件中，所以它最终会写入

xy <- ...
xy <- ...

所以你刚刚定义了变量xy 两次，最后一个值获胜。 append 选项不会将数据附加到文件中的每个元素，它只是在文件末尾添加更多文本。在再次转储数据之前，您需要自己读取/合并数据。

不过，如果您要转储 data.frame，您可能会更好地使用 write.table 和 append=T 和 read.table。这更有可能是您的正确行为。类似的东西

#Simulate data 
x <- rnorm(10)
y <- rnorm(10)
xy <- data.frame(x,y)

fn<-"xy.txt"
if(file.exists(fn)) {
    xy <- rbind(read.table(fn), xy)
}
write.table(xy,file=fn)
rm(xy)  # remove the dataset form current environment

#Retrieve data from file: 
xy <- read.table(fn)

或许

#Simulate data 
x <- rnorm(10)
y <- rnorm(10)
xy <- data.frame(x,y)

fn<-"xy.txt"
if(file.exists(fn)) {
    write.table(xy, file=fn, row.names=F, col.names=F, append=T)
} else {
    write.table(xy, file=fn, row.names=F, col.names=T)
}
rm(xy)  # remove the dataset form current environment

#Retrieve data from file: 
xy <- read.table(fn, header=T)