modelsummary生成模型结果表时如何添加自由度(df/df.error)指标

直接自定义拟合优度指标映射表，把自由度项加入展示列表即可，可复现代码如下：

library(palmerpenguins)
library(modelsummary)

m_test <- list(
  lm(bill_length_mm ~ flipper_length_mm, data = penguins),
  lm(bill_length_mm ~ flipper_length_mm + body_mass_g, data = penguins))

# 基于默认指标映射追加自由度项
custom_gof <- gof_map
custom_gof <- rbind(custom_gof,
                    data.frame(
                      raw = "df.residual",
                      clean = "残差自由度",
                      fmt = 0,
                      omit = FALSE
                    ))

# 生成带自由度的结果表
modelsummary(m_test, gof_map = custom_gof)

说明 #

• 直接在metrics参数传入df.residual、df.error等参数名不生效，是因为metrics仅能识别内置映射表中预先登记的指标，自由度属于lm模型对象自带、但默认未纳入modelsummary展示清单的统计量，需要先注册到映射表才能被正常识别输出。
• 上例中展示的是残差自由度，如果需要展示其他类型自由度，只需修改raw列对应的取值即可：比如要展示模型参数自由度可填df，fmt=0是设置自由度按整数格式展示，符合学术表格的常规展示要求。
• 如果不需要默认输出的AIC、BIC等其他指标，可直接手动构建仅包含所需指标的映射数据框，也可以把映射表中不需要的指标对应的omit字段设为TRUE即可隐藏。

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