解决R语言write.table()写入txt文件时生成额外空行的问题

以下是几个可行的解决方案，适合批量处理场景：

方法1：结合capture.output()与writeLines() #

通过先将data.frame转换为纯文本行，再用writeLines()写入，避免默认的末尾额外换行：

# 将data.frame转为无额外换行的文本行
output_lines <- capture.output(write.table(df, row.names = FALSE, col.names = FALSE, quote = FALSE))
# 写入文件
writeLines(output_lines, filename)

方法2：使用data.table包的fwrite()函数 #

fwrite()是专为高效写入设计的函数，默认不会在文件末尾生成空行，批量处理时性能更优：

# 若未安装data.table先执行安装：install.packages("data.table")
library(data.table)
fwrite(df, filename, row.names = FALSE, col.names = FALSE, quote = FALSE)

方法3：事后移除末尾空行 #

如果已经生成了带空行的文件，可以读取后过滤掉空行再重新写入：

# 读取文件所有行
file_content <- readLines(filename)
# 过滤掉空行（保留非空内容）
file_content <- file_content[nzchar(file_content)]
# 重新写入文件
writeLines(file_content, filename)

问题原因说明 #

write.table()的默认行为是给每一行（包括最后一行）添加换行符，导致文件末尾多一个换行标记，部分文本编辑器会将其显示为空白行。

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