R中gls拟合仅截距模型summary完整输出的获取与存储方法咨询

优先：导出为文本格式 #

方案1：使用capture.output（推荐） #

该方法可完整捕获summary输出的全部段落，不会出现sink常见的仅存储部分输出、追加内容覆盖原有结果的问题，是当前场景下最稳定的实现方式。
对应你现有代码的直接可用示例：

# 原有模型拟合代码
interceptOnly_meaning <- gls(meaningfulness ~ 1, data = data, method = "ML")

# 完整导出summary到文本文件
capture.output(
  summary(interceptOnly_meaning),
  file = "interceptOnly_meaning_summary.txt"
)

如需将多个模型结果合并到同一文本文件，添加append = TRUE参数即可：
capture.output(summary(目标模型), file = "所有模型汇总结果.txt", append = TRUE)

方案2：自定义排版导出 #

如果需要在输出中添加自定义说明、调整内容结构，可先提取summary对象的结构化组成，拼接后写入文件：

# 存储summary的结构化返回对象
sum_res <- summary(interceptOnly_meaning)

# 自定义内容拼接后写入文本
writeLines(
  c(
    "=== 仅截距GLS模型输出 ===",
    "拟合方法：最大似然（ML）",
    "",
    "模型调用：",
    deparse(sum_res$call),
    "",
    "系数估计：",
    capture.output(sum_res$tTable),
    "",
    "拟合统计量：",
    capture.output(sum_res$RTS)
  ),
  file = "自定义排版_gls结果.txt"
)

次选：导出为图片格式 #

如需生成可直接插入文档的可视化结果，可使用base R自带的设备完成导出，无需额外依赖：

# 开启PNG输出设备，可调整width、height、res参数控制尺寸与分辨率
png(filename = "interceptOnly_meaning_summary.png", width = 1200, height = 800, res = 150)

# 将summary内容输出到设备
print(summary(interceptOnly_meaning))

# 关闭设备完成导出
dev.off()

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