R语言调用write.table导出大型txt数据集时出现行缺失问题

• IO缓冲未正常落地：write.table默认走系统IO缓冲写入，如果你在任务未完全跑完时强制终止R进程、提前关闭R会话，或是在写入过程中打开目标文件触发文件锁，缓冲区里还没写到磁盘上的数据会直接丢失，这也是你每次丢行数不固定（1/4到1/2浮动）的核心原因。
• 原生函数性能瓶颈：write.table是单线程实现，写入前会先把全量数据统一转换为字符格式存在内存中，1500多万行的数据在转换阶段如果触碰到内存阈值，R不会抛出显性报错，会直接截断写入内容。
• 查看工具误判：如果你用Windows自带记事本、2007及以前版本的Excel打开导出的txt，这类工具本身有行数加载上限（旧版记事本最多加载约100万行，旧版Excel单表最多支持1048576行），你看到的“缺行”可能只是工具没加载全，不是文件本身没写全，这个要先排查。

• 第一步先排查假缺行：写完文件后不要用办公/文本编辑器数行数，直接在R里运行命令统计实际写入行数，和原数据行数对比：

  # 统计导出文件实际行数
  actual_rows <- length(count.fields("dataname.txt", sep = "\t"))
  # 和原数据行数对比
  actual_rows == nrow(dataname)
  

  如果返回TRUE说明数据写全了，换个支持大文件的文本编辑器（比如Notepad++、VS Code）看文件就行。
• 优先替换为高性能写入方案：别浪费时间调R内存上限，千万行级数据直接用data.table包的fwrite函数，多线程写入、自带缓冲自动刷新，不会出现静默截断，写入速度比原生write.table快几十倍，参数和你现有需求完全对齐：

  # 首次使用先安装
  install.packages("data.table")
  library(data.table)
  # 导出文件
  fwrite(dataname, file = "dataname.txt", sep = "\t", row.names = FALSE)
  

  这是目前R里导出千万行级文本文件最稳定的方案，基本不会出现丢行问题。
• 如果坚持用原生函数，就显式管理文件连接，强制无缓冲写入，写完主动关闭连接刷盘：

  # 显式创建二进制写入连接，开启阻塞模式避免缓冲丢数
  con <- file("dataname.txt", open = "wb", blocking = TRUE)
  write.table(dataname, file = con, sep = "\t", row.names = FALSE, quote = FALSE)
  # 强制关闭连接，把所有缓冲区内容写入磁盘
  close(con)
  

  注意跑这段代码的时候，等控制台完全回到命令提示符状态后再打开文件，不要中途终止任务。
• 写入全程不要打开目标文件，避免文件锁阻断写入流程。

内容的提问来源于stack exchange，提问作者JM1234