r data.table - 有条件地写入外部文件

Question

是否可以从 data.table 有条件地写入外部文件？目前使用基本的for循环，然后访问行/列，但速度很慢。

for (row in seq_len(nrow(dt))) {    

   <if - else condition by accessing row and column as dt[row, column]>

    write(<text>, file=<file>, append=append)
}

条件非常复杂，不容易转换，然后使用 fwrite 将 data.table 中的输出转储到外部文件中（假设这是最快的选项）

我只是想知道 data.table 支持“set”是否会比基本 for 循环更快（来自以下博客之一的示例）但是我们如何从 data.table 的“set”执行 fwrite() ？

dt <- data.table(mtcars)[,1:5, with=F]
for (j in c(1L,2L,4L)) set(dt, j=j, value=-dt[[j]]) # integers using 'L' passed for efficiency
for (j in c(3L,5L)) set(dt, j=j, value=paste0(dt[[j]],'!!'))
head(dt)

Answer 1

我们只需要阻止{}中的代码，即在我们应用set之后，原始数据集'dt'被更新。然后，我们在转换后的数据集上使用fwrite 并使用新文件名

library(data.table)
for(i in seq_len(nrow(dt))) {
  for (j in c(1L,2L,4L)) {
     set(dt, i = i, j=j, value=-dt[[j]][i])
     fwrite(dt, 'yourfile.csv', append = TRUE)
}
}