如何在R中用modelsummary生成两列格式的交互模型HTML输出？

针对含多水平因子的交互回归模型系数过多、输出过长的问题，以下是适配R Markdown/Bookdown HTML输出的两种实用方案：

方案1：手动拆分系数为两列表格 #

先提取系数数据，拆分后合并成两列表格输出，精准控制布局：

library(modelsummary)
library(dplyr)
library(kableExtra)

# 拟合交互模型
interaction <- lm(mpg ~ factor(hp)*factor(am), data=mtcars)

# 提取系数及统计量
coef_tab <- get_coef(interaction) %>%
  rownames_to_column("Variable") %>%
  select(Variable, Estimate, Std.Error, Pr...t..)

# 拆分系数为左右两部分（按行数均分，可按需调整拆分位置）
split_pos <- ceiling(nrow(coef_tab)/2)
coef_left <- coef_tab[1:split_pos, ]
coef_right <- coef_tab[(split_pos+1):nrow(coef_tab), ]

# 重命名列名并合并为两列结构
colnames(coef_left) <- c("变量", "估计值", "标准误", "p值")
colnames(coef_right) <- c("变量", "估计值", "标准误", "p值")

# 生成适配HTML的两列表格
bind_cols(coef_left, coef_right) %>%
  kable("html", caption = "交互模型（两列格式）", escape = FALSE) %>%
  kable_styling(bootstrap_options = "striped", full_width = FALSE) %>%
  column_spec(5, border_left = TRUE)  # 给右侧列添加分隔线

方案2：利用CSS自动分栏 #

通过自定义CSS让系数列表自动分成两栏，无需手动处理数据：

1. 在R Markdown的YAML配置中引入自定义CSS（或直接在正文嵌入样式）：

output:
  html_document:
    css: custom_styles.css

2. 在custom_styles.css文件中添加以下样式：

/* 给modelsummary表格的系数区域设置两栏布局 */
.modelsummary tbody {
  column-count: 2;
  column-gap: 2em;
}

/* 确保单条系数的整行内容不被拆分到两栏 */
.modelsummary tr {
  break-inside: avoid;
  display: table-row;
}

3. 正常调用modelsummary即可自动分栏：

library(modelsummary)

interaction <- lm(mpg ~ factor(hp)*factor(am), data=mtcars)

modelsummary(title = '交互模型（自动分栏）',
             list("MPG" = interaction), 
             gof_omit = 'R2|AIC|BIC|RMSE|Log.Lik.|F')

注：方案2依赖浏览器的多列布局支持，HTML输出下兼容性良好；若需更精细的布局控制，方案1的手动拆分更可靠。

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