R中如何将线性模型summary等对象输出保存到txt文本文件

报错原因 #

cat()函数仅支持处理字符串、数值等原子类型向量，而summary(lin_model)返回的是线性模型汇总的列表对象，因此无法直接传入cat()导出。

方案1：使用sink()重定向控制台输出 #

这是最接近原生打印效果的方案，直接将原本输出到控制台的内容定向写入文件：

# 拼接输出文件路径
output_path <- paste0(output_dir, "/linear_model_output.txt")
# 开启输出重定向
sink(output_path)
# 正常打印汇总结果，内容会直接写入文件而非控制台
print(summary(lin_model))
# 必须关闭重定向，否则后续所有控制台输出都会持续写入该文件
sink()

如果需要在已有文件后追加内容，可添加append = TRUE参数：
sink(output_path, append = TRUE)

方案2：使用capture.output()捕获打印内容 #

无需管理全局输出状态，适合单次导出场景：

output_path <- paste0(output_dir, "/linear_model_output.txt")
# 直接捕获打印summary的全部内容为字符串向量
model_output <- capture.output(print(summary(lin_model)))
# 写入TXT文件
writeLines(model_output, con = output_path)

方案3：结构化导出（适合后续需加工模型结果的场景） #

如果需要导出可直接二次分析的结构化结果，可借助broom包将汇总结果转为数据框后导出：

# 未安装broom的话先执行：install.packages("broom")
library(broom)
output_path <- paste0(output_dir, "/linear_model_output.txt")
# 导出模型系数表
write.table(tidy(summary(lin_model)), file = output_path, sep = "\t", row.names = FALSE)
# 追加导出模型整体拟合统计量
write.table(glance(summary(lin_model)), file = output_path, sep = "\t", append = TRUE, row.names = FALSE)

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