modelsummary导出LaTeX表格出现标题缺失、P值错位等问题求助

问题修复方案 #

针对你提到的三个异常，修复思路如下：

• 预设标题未显示：gt的as_latex()方法默认不输出表格标题，需要调用时手动开启caption = TRUE参数。
• P值/显著性标识位置错误：这是gt跨格式转换的已知兼容问题，关闭modelsummary默认自动生成的显著性注释，手动添加显著性规则脚注即可解决错位问题。
• 脚注对齐异常：调整脚注的挂载位置为表头的列分组标识，同时转换LaTeX时开启footnotes_as_tablenotes = TRUE参数，即可实现脚注正常左对齐。

library(tidyverse)
library(modelsummary)
library(gt)

data <- as.data.frame(ChickWeight)
mod_control <- lm(weight ~ Time , data = data)
mod_treat <- lm(weight ~ Time + Diet, data = data)

mod_one_list <- list(mod_control, mod_treat)

# 系数映射
cm <- c("(Intercept)"="Konstant",
        "Time" = "Tid",
        "Num.Obs." = "n")

# 拟合优度映射
gm <- list(list(raw = "nobs", clean = "N", fmt = 0))

# 表格标题
tit <- "En beskrivning här"

# 生成表格
modelsummary(mod_one_list, 
             output = "gt",
             stars = TRUE,
             # 关闭自动生成的显著性注释，避免冲突和错位
             stars_note = FALSE,
             title = tit,
             coef_map = cm,
             gof_map = gm,
             vcov = "HC1") %>%  
  tab_spanner(label = '(1)', columns = 2) %>%
  tab_spanner(label = "(2)", columns = 3) %>% 
  # 脚注挂载到列分组位置，定位更准确
  tab_footnote("För standardfel använder vi HC1",
               locations = cells_column_spanners(spanners = "(1)")) %>%
  # 手动添加显著性规则脚注
  tab_footnote("* p<0.1, ** p<0.05, *** p<0.01") %>%
  # 转LaTeX时开启标题输出，设置脚注格式
  as_latex(caption = TRUE, footnotes_as_tablenotes = TRUE) %>%
  cat()

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