是否有R函数可将GAM模型的summary输出提取为可用于文档的表格？

前置说明 #

本方法默认你使用R语言mgcv包拟合GAM模型，若使用其他工具拟合可参考逻辑调整操作。

实操步骤 #

• 第一步：存储模型summary结果
  运行代码将模型输出保存为可调用对象：
  gam_summ <- summary(你的GAM模型对象名)
• 第二步：提取结果表内容
  mgcv包的summary结果内置了两张核心表，分别对应参数项和平滑项结果，直接提取转为数据框：

  # 提取参数项（固定效应）结果表
  param_table <- as.data.frame(gam_summ$p.table)
  # 提取平滑项结果表
  smooth_table <- as.data.frame(gam_summ$s.table)
  

• 第三步：标准化表格格式
  按需修改列名、调整小数位数，适配正式文档规范：

  # 重命名参数项表列名（中文版本）
  colnames(param_table) <- c("估计值", "标准误", "t统计量", "P值")
  # 重命名平滑项表列名（中文版本）
  colnames(smooth_table) <- c("有效自由度", "参考自由度", "F统计量", "P值")
  

• 第四步：输出markdown格式表格
  使用knitr包的kable函数直接生成可直接插入文档的markdown表格：

  library(knitr)
  # 输出参数项表格，保留3位小数
  kable(param_table, digits = 3, caption = "GAM模型固定效应参数估计结果")
  # 输出平滑项表格，保留3位小数
  kable(smooth_table, digits = 3, caption = "GAM模型平滑项显著性检验结果")
  

格式优化提示 #

• 若P值小于0.001，可统一标注为*<0.001*，符合学术文档通用表述规范
• 可根据需求对显著性结果加星标标注：如P<0.05加1颗星，P<0.01加2颗星，P<0.001加3颗星

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